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Vorwort der Autoren 


Das Buch „Spielprogramme für den APPLE Ile“ enthält neue Spiele sowie 
Verbesserungen bekannter Gesellschaftsspiele und Vorschläge bzw. Anregun- 
gen zum Programmieren weiterer Spiele. Es wurde speziell für diejenigen 
Leser geschrieben, die bereits ausreichend mit der Programmiersprache BASIC 
vertraut sind und bessere, abwechslungsreiche Programme schreiben möch- 
ten. Das Buch wendet sich an Eltern, Lehrer, Schüler und Studenten oder 
einfach an den Computer-Hobbyisten. 


Wir stellen sorgfältig konstruierte Programme zur Verfügung. Damit können 
Klänge oder Farbmuster erzeugt, Daten direkt nach Eingabe ausgewählt und 
bewertet oder bestimmte Tasten deaktiviert werden. Die Programme eignen 
sich als Zusätze für existierende Programme und als Grundbausteine für neue 
Programme. - 


Wir haben Unterprogramme in eigenständige Spielprogramme eingebaut. So- 
wohl die Unterprogramme als auch die Spielprogramme können als Beispiele 
guten Programmierstils angesehen werden. Mit ihnen wollen wir unsere Über- 
zeugung von der Bedeutung benutzerfreundlicher Computerprogramme aus- 
drücken. Geben Sie die Programme so ein, wie sie in diesem Buch abgedruckt 
sind. Speichern Sie diese unter den Namen, die wir angegeben haben. Dies 
gibt uns die Möglichkeit bei der Konstruktion größerer Programme auf die 
vorhergehenden Arbeiten Bezug zu nehmen. Außerdem erspart es Ihnen die 
Zeit des wiederholten Eintippens. Lesen Sie die Kapitel der Reihe nach! 
Lassen Sie kein Kapitel aus, und Sie werden sehen, daß Sie dadurch Gewinn 
und Freude steigern. 


Zur Benutzung des Buches benötigen Sie einen APPLE II Computer mit 
APPLESOFT (FP) BASIC Programmiersprache. Einige unserer Programme 
sind sehr kurz und benötigen nicht mehr als 16K Speicherkapazität, doch die 
meisten Programme brauchen 32K. Zusätzlich benötigen Sie ein Disketten- 
laufwerk zum Speichern der Programme und Unterprogramme. Mit einem 
Kassettenrekorder ist das Speichern der Programme sehr viel komplizierter. 
Für die Verwendung eines Diskettenlaufwerks spielt es keine Rolle, ob das 
Betriebssystem DOS 3.2. oder 3.3. benutzt wird (DOS = Disk Operating 
System). 
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Einige Bemerkungen zu Computerspielen 


Heutzutage sind nur wenige Computerspiele wirklich neu. Die meisten sind 
zuerst für große Computersysteme geschrieben worden (vor 15 bis 20 Jahren 
die einzigen erhältlichen Computer). Diese frühen Spiele wurden an Fern- 
schreiber-Terminals gespielt und basierten deshalb auf der Verwendung von 
Texten. Wenn Sie heute Textzeilen aus dem Bildschirm verschwinden sehen, 
dann erinnern Sie sich an folgendes: Die Papierrollen des Fernschreibers 
hatten keine Begrenzung, wie dies beim Bildschirm der Fall ist. Die Program- 
mierer wußten, daß die Spieler jederzeit bei fehlenden Anweisungen die Rolle 
zurückdrehen konnten, um diese zu finden. 

Wir erwähnen dies aus zwei Gründen: 

Erstens ist es gut zu wissen, warum die Dinge sich so entwickelt haben, wie 
sie heute sind. Computerspiele haben eine geschichtliche Entwicklung, und — 
so oft wie möglich — werden wir auch die Ursprünge der vorgestellten Spiele 
aufzeigen. 

Zweitens haben viele heutige Spiele noch Nachteile, da sıe lediglich Mikro- 
computer-Adaptionen der früheren, textorientierten Fernschreiberspiele 
sind. Wir denken z.B. an das Verschwinden von Textzeilen aus dem Bild- 
schirmbereich. Auch werden die Vorteile des Mikrocomputers oft nicht voll 
ausgenutzt. Im Verlauf dieses Buches werden wir einige Verfahren zum Ver- 
bessern bereits existierender Spiele durch die speziellen Eigenschaften des 
APPLE vorschlagen. 


Noch ein Wort an die Leser 


Die Computer-Programme von „Spiele für den APPLE-Computer‘ werden 
auf nicht kopiergeschützten Disketten geliefert. Es gibt keine mechanischen 
oder elektronischen Tricks, um das Kopieren zu verhindern. Die Programme 
sind jedoch urheberrechtlich geschützt. Wir fühlen uns moralisch verpflichtet, 
Software in einer Form anzubieten, dıe der Leser auch abändern kann. Der 
Leser kann zwei Dinge tun: die Funktion unserer Spiele erforschen, indem 
er einzelne Teile unserer Programme ausprobiert, und eigene Spiele ent- 
wickeln. Außerdem hat er ein Anrecht auf eine ausreichende Zahl von Sicher- 
heitskopien, so daß er nicht zu befürchten braucht, daß maschinelle Fehl- 
funktionen oder persönliche Fehler die einzige Kopie des Programms zer- 
stören. 


VI 


An dieser Stelle möchten wir die persönliche Bitte an den Leser richten, 
unsere Programme nicht zu kopieren, um sie unter Bekannten und Freunden 
zu vertreiben. Mit dem Verzicht auf einen Kopierschutz hoffen wir, den 
Software-Herstellern wie auch den Herausgebern zu zeigen, daß Programme 
auch ohne Kopierschutz mit finanziellem Gewinn verbreitet werden können. 


Wenn es keinen finanziellen Gewinn gibt, können die Hersteller die Computer- 
Software künftig nicht mehr zu vernünftigen Preisen anbieten. 

Nehmen Sie bitte Rücksicht auf unsere Bemühungen und machen Sıe nur 
Kopien für Ihren eigenen Gebrauch! 


Howard Franklin 
Joanne Koltnow 
LeRoy Finkel 


Vorwort des Übersetzers 


Das vorliegende Buch enthält neben vielen Programmen, die das Erstellen 
von Computerspielen wesentlich erleichtern, eine Reihe von fertig ausge- 
arbeiteten Spielen. Als Vorlage für die Computerversionen dieser Spiele 
dienten den Autoren bekannte amerikanische Kinderspiele, die nicht immer 
im Deutschen eine Entsprechung besitzen. Deshalb wurde größtenteils der 
Originalname des Spiels beibehalten (z.B. MATCH, BLOCKOUT). Die Über- 
tragung der Programme ins Deutsche geschah lediglich durch Übersetzung 
der Dialogformen und der REM-Anweisungen. Der Ablauf der Programme 
blieb ungeändert. Trotzdem kann für vollständige Fehlerfreiheit aller Pro- 
grammlistings keine Gewährleistung übernommen werden. 


L. Schaaf 


Dezember 1983 
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Kapitel 1 
Melodien und Klangeffekte 


Dieses Kapitel führt in grundlegende Möglichkeiten zur Klangerzeugung des 
APPLE-Computers ein. Außerdem enthält es Unterprogramme zur Erzeu- 
gung von Klangeffekten, die Sıe zu bereits existierenden Programmen hinzu- 
fügen können. Mit diesen Unterprogrammen als Grundlage können Sie neue 
Programme in allen gewünschten Variationen erstellen. 


Der Ablauf der Programme auf dem Bildschirm kann in diesem Buch nicht 
gezeigt werden. Es ıst nicht möglich, den Ablauf eines Programms darzu- 
stellen, das Klänge produziert; es ist schon schwierig, einen Programmablauf 
zu demonstrieren, bei dem sich farbige Bilder verändern. Wir finden es je- 
doch angebracht, die von uns geschaffenen Wahlmöglichkeiten zu erläutern, 
mit denen ein Programm auf den Spieler eingeht. Deshalb enthalten die 
Kapitel Erörterungen über spezielle Dialoge zwischen Spieler und Programm. 
Der Apple-Computer erzeugt Töne durch das sehr schnelle Ein- und Aus- 
schalten eines elektrischen Schalters im Innern des Computers. Indem man 
eine lange Folge dieser winzigen Schaltvorgänge in einen Lautsprecher leitet, 
entsteht ein Ton. Ändert man die Anzahl der Schaltvorgänge pro Sekunde, 
so ändert sich auch der Ton. Alle verschiedenen Klänge, die der APPLE- 
Computer erzeugt, kommen von diesen Schaltvorgängen. Sie werden durch 
einen Lautsprecher wiedergegeben. Zum Beispiel erfordert ein Klang, dessen 
Tonhöhe etwa dem Kammerton a entspricht, 440 Schaltvorgänge in der 
Sekunde. 


Die BELL-Funktion 


Wenn Sie die Control-G Taste drücken, wird Ihr APPLE-Computer einen Ton 
(Beep) von sich geben, der manchmal auch als Bell bezeichnet wird. (Die 
CTRL-Taste bleibt gedrückt während man die G-Taste betätigt.) Wiederholen 
Sie dies einige Male und achten Sie auf den Ton. Der Control-G-Befehl be- 
wirkt diesen Ton durch die Benutzung eines im Computer gespeicherten 
Unterprogramms, das eine bestimmte Folge von Schaltvorgängen erzeugt. 


Haben Sie bemerkt, daß die G-Taste auch mit BELL bezeichnet ist? Die Be- 
zeichnung ist ein Überbleibsel aus jenen Tagen, als in Fernschreibgeräten 
noch solche Bells eingebaut waren und durch Eintippen von Control-G be- 
tätigt wurden. Heutzutage klingt “BELL‘ gewöhnlich nicht wie eine Klingel, 
doch die meisten Terminals besitzen irgendwelche akustischen Signale. 
Angenommen Sie wollen den Beep benutzen, um in einem Spiel eine richtige 
Antwort oder einen siegreichen Schritt anzuzeigen. Sie können Control-G als 
Teil des Programms ın einen PRINT-Befehl mit aufnehmen. Control-Zeichen 
erscheinen jedoch nicht im Programmlisting; sie sind zwar in Ihren PRINT- 
Befehlen vorhanden, werden aber im Programmlisting vermißt. 


PRINT “DAS IST RICHTIG!!!“ 
(nicht sichtbares Control-G) 


Das ist zwar nicht schlecht, doch es kann ärgerlich und verwirrend sein, 
wenn Sie Ihre Listings betrachten. Glücklicherweise gibt es eine Alternative. 
CHR$ (7) ist der ASCII-Code für Control-G, und diese Zeichen erscheinen im 
Programmlisting. Benutzen Sie CHR$ (7) ın einem PRINT-Befehl wie folgt: 


PRINT "DAS IST RICHTIG!!“; CHR$ (7) 
PRINT CHR$ (7); DAS“; CHR$ (7), “IST; CHR$ (7); “RICHTIG!!“; 
CHR$ (7) 


Sıe stellen fest, daß das Eintippen von CHR$ (7) sehr schnell mühsam wer- 
den kann. Daneben kann man ja auch vergessen, welche Zahl zu benutzen ist. 
Wenn wir für CHR$ (7) eine Textvariable definieren, sind die PRINT-Befehle 
leichter einzugeben. Als Variable für Beep werden wir BL$ benutzen: 


10 BL$ = CHR$ (7) 
20 PRINT BL$; “DAS“; BL$; “IST“, BL$; “RICHTIG!!“, BL$ 


Pausen 


Beim Ausprobieren dieser Programmzeilen mit dem APPLE werden Sie fest- 
stellen, daß Wörter und Töne beinahe gleichzeitig erscheinen. Der PRINT- 
Befehl wird so schnell ausgeführt, daß nur schwer zu sagen ist, ob die Töne 
auf die Wörter folgen. Wenn Sie einen Ton mehrere Male spielen wollen, ver- 
schwimmen die Töne ineinander. (Der Befehl PRINT BL$; BL$; BL$ hört 
sich wie ein einziger Ton anstatt wie drei Töne an.) 


Mit dem SPEED-Kommando wird die Geschwindigkeit kontrolliert, in der 
durch einen PRINT-Befehl Zeichen auf dem Bildschirm ausgegeben werden. 
SPEED = 255 ist die schnellste, SPEED = 0 die langsamste Geschwindigkeit. 
Wenn keine Geschwindigkeit festgelegt ist, wird die vorgewählte Geschwin- 
digkeit (255) benutzt. Hier zeigen wir einen interessanten Weg, das SPEED- 
Kommando zur Kontrolle der Pausen zwischen den Tönen zu benutzen. 


10 REM ... TDENE FAUSE... 

11: 

12 REM FUEGE EINE FAUSE ZWISCHEN 2 TOENEN EIN UNTER BENUTZUNG VON °’SFEED’ 
13 : 

100 BL$ = CHR$ (7 

110 SPEED= O 

120 PRINT BL$;BL$;RBL$ 

130 SPEED= 255 


Lassen Sie das Programm mit SPEED = 0 laufen. Verändern Sie die Geschwin- 
digkeit in Zeile 110 zu 50, 100, 150, etc., und starten Sie das Programm er- 
neut. 


Spiele mit Tönen 


Einfache Programme, die nur einen Ton benutzen, sind sehr leicht zu ent- 
werfen. Gesetzt den Fall, Lehrer oder Eltern möchten diesen Ton in einem 
Programm dazu benutzen, kleinen Kindern das Zählen beizubringen. So 
fragt z.B. ein solches Programm den Spieler nach einer Zahl zwischen 1 und 
10. Dann zeigt das Programm die Zählfolge bis zu dieser Zahl und hebt da- 
bei jede Zahl durch einen Ton hervor. Wenn ein Kind z.B. die Zahl 5 ein- 
gibt, so erzeugt das Programm einen Ton und zeigt die Zahl 1 an, der nächste 
Ton und die 2 erscheint, der nächste Ton und die 3 erscheint, usw. Das 
spielende Kind zählt die Töne, während es die Zahlen, die auf dem Bild- 
schirm erscheinen, beobachtet. 


Hier ist das Programm: 


10 REM »» EINGABE TOENE... 

11: 

12 REM ERZEUGE TONANZAHL LAUT EINGABE 

13 : 

100 L = 1: REM MINIMALE TONANZAHL 

110 H = 5: REM MAXIMALE TONANZAHL 

200 TEXT : HOME 

210 FRINT "BITTE NENNE EINE ZAHL VON "sL3" BIS "sH3: INPUT "2 "N 
220 IFN<LDORN > H THEN 200 

230 PRINT 

>00 PRINT "ZAEHLE DIE TOENE....": FRINT : PRINT 

s10 FOR J 1 TO 1000: NEXT : REM PAUSE VOR DEM ERSTEN TON 
320 FOR J 1 TON 

S30 SPEED= 0 

340 PRINT " "s: REM LASSE ZEIT VERSTREICHEN (Z % LEERTAÄSTE) 
350 SPEED= 255 

Ss60 PRINT Js 

s70 FRINT CHR$ (MI; 

s970 NEXT 

300 PRINT : VTAR 18 

s10 FRINT "DRUECEE RETURN UND VERSUCHE NOCH EINMAL. " 

315 PRINT "DRUECKE LEERTASTE FUER PROGRAMMENDE...." 

s20 GET Z$ 

s30 IF Z$ = CHR$ (32) THEN END : REM ARFRAGE VON ESC 
340 GOTO 200 


Speichern Sie dieses Programm als EINGABE TOENE ab, und starten Sie 
einen Probelauf. 


Frage 1: Schauen Sie sich das Programmlisting an. Wie wird die maximale 
Anzahl von Tönen auf 20 verändert? 


Dieses Programm ist etwas ungewöhnlich, da es dem Spieler laufend Anwei- 
sungen erteilt. Bei den meisten Lehrprogrammen und Spielen erhält jedoch 
der Computer die Befehle. Tatsächlich testet bzw. rechnet der Computer 
häufiger, als daß er lehrt. Beim Schreiben von Programmen ist darauf zu 
achten, wer die Anweisungen während eines Spiels gibt. Gewöhnlich macht 
es dem Spieler mehr Spaß, wenn er die Kontrolle über den Computer ausübt. 


Eine herkömmliche Variante des Spielens mit Tönen und Zahlen ist folgen- 
de: Das Programm wählt eine Zahl, gibt mehrere Töne von sich und fragt 
den Benutzer nach der Anzahl der Töne. Dieses neue Programm testet die 
Fähigkeit des Spielers im Zählen der Töne. Es spornt auch an, wenn die Ant- 
wort nahe beim richtigen Ergebnis liegt (siehe Zeile 120 und 430 im Pro- 
gramm weiter unten). 


Anstatt das ganze Programm einzugeben, können wir auch das vorherige Pro- 
gramm EINGABE TOENE wie folgt abändern: 

Die Zeilen 220, 230 und 360 werden gelöscht und anschließend folgende 
Zeilen eingefügt. (Einige der folgenden Zeilen beinhalten lediglich kleine Ver- 
änderungen der bereits vorhandenen Zeilen.) 


10 REM ».. ZAEHLE-EINGABE-TOENE,... 

11: 

100 L = 4: REM MINIMALE ANZAHL VON TOENEN 

110 H = 16: REM MAXIMALE ANZAHL VON TDENEN 

120 C= 1: REM WIE NAHE AM RICHTIGEN ERGEBNIS” 

210N= INTCH-L+1 % RND (1)) +L: REM # OF BEEFS 


380  HTAR 1 

400 INPUT "NUN, WIE VIELE TOENE WAREN DIES? "6 

410 PRINT 

420 IFG=N THEN FRINT "DAS IST RICHTIG !!!": GOTO 500 

450 IF ABS (G-N) © =C THEN FRINT "FAST,ABER NICHT GANZ GENAU. 
.. ES SIND... "3N5".": GOTO 500 

440 PRINT "SPIEL NOCHMAL... ES WAREN NT." 


Speichern Sıe das Programm als ZAEHLE TOENE und starten Sie es. 


Frage 2: Wie ändern Sie die Variable für die Ausgabe eines aufmunternden 
Textes auf 3? 


Weitere Töne 


Die Nutzung des bisherigen Tones eröffnet interessante Möglichkeiten zum 
Programmieren, doch kann der APPLE ebenso viele andere Töne produ- 
zieren. Wie bereits erwähnt, bestimmt die Anzahl der Schaltvorgänge pro 
Sekunde (Frequenz) die Höhe des computererzeugten Tones. 


Als erstes geben Sie das folgende Programm ein und speichern es als NEXT- 
DATA-EINHEIT ab. Dieses Programm erlaubt der READ DATA-Anwei- 
sung, bei einer beliebigen Zeilennummer zu beginnen. Diese Einheit kann in 
allen Programmen dazu benutzt werden, den DATA-Zeiger auf eine bestimm- 
te Zeilennummer zurückzusetzen. (siehe Anhang B für zusätzliche Erläute- 
rungen.) 


iO REM ...NEXTDATA EINHEIT... 


zZ REM BEGINNE READ IN BELIERIGER ZEILE... 
13 3: 

19991 : 

1899772 ı: 

17975 REM %*k NAECHSTE DATEN IN ZEILE Z XX 
18974 REM EINGANGSVARIABLE: Z ZEILENNUMMER 


18997 : 

17000 IF YRA THEN 19200: REM  UEBERFRUEFE,OB NEXTDATA FROGRAMM GEL 
ADEN IST 

17010 YR% = 770: REM — NAECHSTE DATA ADRESSE 

17077 : 


170978 REM NEXT DATA FROGRAMMM GESCHRIEBEN IN MASCHINENSPRACHE 

17097 ; 

19100 FOKE 770,173: FOKE 771,0: FOKE 772,3: FOKE 773,133: POKE 774, 
80: FOKE 775,173: FOKE 776,1: FOKE 777,3 

17110 FOEE 778,123: FOEE 779,81: FOEE 780,22: FOKE 781,26: FOKE 792 
‚214: FOKE 783,165: POKE 784,155: POKE 785,24 

17120 FOKEE 788,105: FOEE 787,4: FOEE 788,133: FOKE 789,125: POKE 79 
2,185: FOEE 791,156: FOEE 792,105: FOHE 793,0 

17130 FOKE 794,133: FOEE 795,126: POKE 796,96 

17200 7% = 12 / 256: FOKE YR% - 2,2 - 256 % 27%: FOEE YR% - 1,7%: REM 
LINE # 

19210 CALL YR% 

19270 RETURN 


Speichern Sie dieses Programm als NEXTDATA-EINHEIT ab. 


Dies ist das erste von sogenannten ““Black-box‘“-Programmen, die wir Ihnen 
zur Verfügung stellen. Der Begriff ‘“Black-box“ wird allgemein für etwas ver- 
wendet, dessen Auswirkung leicht erkennbar ist, dessen genaue Funktions- 
weise aber verborgen bleibt. Unsere ““Black-box‘-Programme sind in Ma- 
schinensprache geschrieben. Führen wir diese Programme ein, so ‚erläutern 
wir zwar ihre Funktion, behandeln aber nicht den Programmaufbau in allen 
Einzelheiten. Ihre komplizierte Konstruktion würde das Ziel dieses Buches 
übersteigen. Für interessierte Leser verweisen wir auf Anhang B. Die meisten 
von Ihnen werden die Programme auch ohne nähere Erläuterung benutzen, 
um sich das Programmieren zu erleichtern. 


Fügen Sie das folgende Listing an NEXTDATA-EINHEIT an: 


10 REM „..KLANG EINHEIT-NEXTDATA EINHEIT.. 

11: 

i2 REM KLANG FROGRAMM ZUM SFIELEN VON BUCHSTABENFOLGEN UND ERZEUG 
EN VON KLANGEFFEKTEN 


13 : 
12991: 
12992 : 


129972 REM x% WIEDERGABE VON TONHGEHE FUER FESGESETZTE LAENGE 8% 
12994 REM EINGANGSVARIABLE:WP TONHDEHE # 


12995 REM (WP=0 UND PROGRAMM NICHT GELADEN = NUR INITI 
ALISITERUNG) 

12996 REM WD TONDAUER 

12999 : 

13000 IF WR% THEN 13200: REM  UERBERPRUEFE OR KLANG PROGRAMM SCHON 
GELADEN 

13010 WR% = B00:WPA = 799:WD% = 797: REM  TON,TONHOEHE, TONDAUER A 
DRESSEN 


13020 Z = 13100: GOSUR 19000: REM SETZE READ-DATA-ZEIGER 

13050 Z = WRZ: REM LADE KLANG FROGRAMM 

130580 READ Zi: IF Z1 5 =0THEN FOKE Z,Zi:Z = Z + 1: GOTO 13060 

3070 IF WF = 0 THEN RETURN : REM SFERRE NUR FUER INITIALISIERUN 
G 

13097 : 

12098 REM ELANG FROGRAMM GESCHRIEBEN IN MASCHINENSFRACHE 

13099 ; 

13100 DATA 172,31,2,185,732,2,141,31,3,160,0,228,29,3,238,30,3,174, 
31,3,173,48,192 

13110 DATA 136,208,10,208,29,3,208,5,206,20,3, 240,5, 202,240, 234,20 
9,238,95 

13117 : 

13118 REM TONHDEHEN 

13119 : 

13120 DATA 255,242, 2298, 215,203,192,181,171 

13130 DATA 1681,152,143,135,127,120,113,107 

13140 DATA 101,95, 90,85,80,75,71,67 

13150 DATA 63,59 

13190 DATA -1: REM ZEICHEN,UM DATEN EINLESEN ZU BEENDEN 

13200 72% = WB / 256: FOEE WDA,WD — 256 8 ZZ: FOKE WDA + 1,7%: REM 
TONDAUER 

13210  FOKE WF%,WF: REM TONHDEHE # 

13220  CALL WR% 

13230 RETURN 

13292 ı 

13293 REM x SFIELE BUCHSTABENKOMBINATION % 

13294 REM EINGSANGSVARIABLE: 2% TEXT 

13295 REM WD TONDAUER 

3299 3: 

13300 IF LEN (Z$) = O0 THEN RETURN : REM LEERER TEXT 

13210 FOR W= 1 TO LEN (7$) 

12520 WF = ASC { MID& (7$,W1)) - 564: REM NAECHSTER BUCHSTABE 

13330 IFWE > = 1 AND WE © = 26 THEN GOSUR 13000: REM SFIELE, 
WENN REDINGUNG ERFUELLT 

13340 NEXT 

13350 RETURN 

1.3382 : 

12333 REM % ELANG EFFEETE X 

13394 REM EiNGANGSVARIABLEN: Wi LAENGE DER TOENE (>=0) 
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12395 REM W2  SCHRITTWEITE ZWISCHEN TOENEN (>30 


13396 REM {(W2=0 UND FROGRAMM NICHT GELADEN = N 
UR INITIALISIERUNG) 

15597 REM W3 ERSTER TON (0/2590 

133939 REM W4 ANZAHL DER TOENE EINES ZYELUS 

13397 REM WS 1=ZURUECH; -1=VOR;O=VOR UND ZURUECK 

13370 REM W& FAUSE ZWISCHEN DER WIEDERHOLUNG 
DER ZYELEN 

13391 REM W?7 ANZAHL DER WIEDERHOLUNGEN 

3299 : 

13400 IF WE THEN 13500: REM UERBERFRUEFE OR EFFEETE EINGELESEN 

13410 IF WR% = ü THEN WF = 0: GOSUR 13000: REM LESE KLANG FROGRAM 


M EIN,WENN NOTWENDIG 
13420 WER = 809: REM ADRESSEN FUER ELANGEFFERTE 
13430 IF W2 = U THEN RETURN : REM SFERRE NUR FUER INITIALISIERU 


NG 
13500 WHZ = Wi 7 256:WL% = WI - 256 % WH%: REM  TONHGEHE ZWEI BYTES 
13510 IFW2& =0Ö THEN W2 = 1: REM MACHE WZ GUELTIG 
13520 IF WEX0O THEN WE = 0: REM MACHE WE GUELTIG 


13530 FOR Z = 1 TO W?: REM ANZAHL DER WIEDERHDLUNGEN 
12540 74 = WI + WE X WA: IF WS © 0 THEN 13600: REM  SFERRE NUR VORW 


RERTS 

13550 FÜR ZI = WI TO ZA STEF Wr REM ZYELUS RUECKWAERTS 

13560 IF ZL& = 255 THEN FOKE WF%,Z1: FOKE WD%,WL%: POKE WD% + 1, 
WH%: CALL WE%X: REM  NAECHSTER TON IST GUELTIG 

12570 NEXT 

13600 IF WS > 0 THEN 13650: REM  SPERRE NUR ZURUECK 

13610 FOR Z1 = Z% TD WE STEF - W2: REM ZYKLUS VORWAERTS 

13620 IF ZI © = 255 THEN FOEE WP%A,Z1: FOKE WD%,WL%: FOEE WD% + 1, 
WH%: CALL WER: REM  NAECHSTER TON IST GUELTIG 

13650 NEXT 


136450 FOR Zi = 1 TO Ws: NEXT : REM  FAUSE ZWISCHEN 2 ZYKLEN 
12a&0 NEXT 
13670 RETURN 


Geben Sie dieses Listing ein und speichern es als KLANG EINHEIT ab. 


Dies ist eine Sammlung von Unterprogrammen, die in anderen Programmen 
benutzt werden können; lediglich für sich alleine sind die Unterprogramme 
nicht lauffähig! 


Musiknoten 


Die folgenden Änderungen an KLANG EINHEIT ergeben ein Programm, bei 
dem die Tasten mit den Ziffern 1 bis 8 den Noten der Tonleiter entsprechen: 


Löschen der Zeilen 13120 bis 13150. 


10 REM un. IASTEN1/S-ELANG EINHEIT... 

il: 

12 REM FROGRAMM ZUM SFIELEN MIT DEN TASTEN 1 BIS 8 

13: 

100 GOSUR 13000: REM INITIALISIERE KLANG EINHEIT 

200 TEXT : HOME 

z10 PRINT "’SFIELE” EINEN TON,BENUTZE DIE TASTEN 1 BIS 8" 


220 FRINT 
230  FRINT "DRUECEE RETURN ZUM BEENDEN DES TDNES.." 
240  FRINT "DRUECKE LEERTASTE FUER PROGRAMMENDE..." 
250 FRINT 


00 GET 7$ 
a10 IF Z$ = CHR# {1 THEN Soö: REM RETURN 
320 IF Z$ = CHR$ (32) THEN END : REM LEERTASTE 


30 IF Z$ & "1" OR Z$ > "8" THEN 300: REM IGNORIERE ANDERE TASTEN 


240 PRINT 28; 

350 WE = ASC (Z$) - 48: REM WANDLE UM AUF 1/8 

360 WD = 50: REM TONDAUER 

370 GOSUR 13000 

380 G0TO 300 

500 PRINT : VTAR 18 

510 PRINT "DRUECKE RETURN UND VERSUCH’S NOCH EINMAL. u... “ 
520 GET Z$ 

S30 IF 2$ = CHR$ (32) THEN END : REM  LEERTASTE 

540 60T0 200 


Speichern Sie dieses Programm als TASTEN 1/8 ab. 


Starten Sie es und spielen Sie einfache Melodien durch Betätigen der Tasten 1 
bis 8. Während des Spielens erscheinen die Ziffern der betätigten Tasten auf 
dem Bildschirm. Sie können sie abschreiben und sich so Tonfolgen festhal- 
ten, die Ihnen gefallen. Wie bei unseren anderen Programmen endet der Ton 
nach Drücken der RETURN-Taste. Mit der Leertaste wird das Programm ge- 
stoppt. 


Das Programm KLANG EINHEIT läßt den Computer bei einer bestimmten 
Anzahl verschiedener Frequenzen Töne erzeugen. Es arbeitet ähnlich wie das 
interne Programm, das durch Eingabe von Control-G aktiviert wird. Diesmal 
wurden Frequenzen gewählt, die ungefähr der Tonleiter entsprechen. Es wur- 
den die Ziffern 1 bis 8 benutzt, um die Tonleiter zu spielen. Die Zuordnung 
der Tonleiter zu den Tasten 1 bis 8 ist willkürlich und wird bestimmt durch 
die DATA-Anweisungen in den Zeilen 13120 bis 13150. 


Spielen Sie die folgende Sequenz von Noten und fügen bei jedem Sternchen 
eine Pause ein: 123455*66665*66665*444433*55551. 


Frage 3: Wie lautet die Melodie? 


Durch Änderung der DATA-Anweisungen in den Zeilen 13120 bis 13150 
können wir uns zusätzliche Frequenzen schaffen. Den neuen Tönen sind nun 
in alphabetischer Reihenfolge die Buchstaben der Tastatur zugeordnet. Das 
folgende Programm liefert daher eine chromatische Tonleiter mit 26 Tönen. 
Hier sind die Befehle, die die Funktion der Tasten 1 bis 8 auf die Tasten A 
bis Z übertragen. Machen Sie im Programm TASTEN 1/8 folgende Änderun- 
gen: 


10 REM ... TASTEN A/Z - TASTEN 1/8 

il: 

i2 REM PROGRAMM ZUM "SPIELEN" AUF DEN TASTEN A BIS Z IN ALPHABE 
TISCHER REIHENFOLGE 

13 : 


210 FRINT "’SPIELE” EINE MELODIE; BENUTZE DIE TASTEN A BIS Z" 
330 IF Z$ © "A" OR Z$ > "Z" THEN, 300: REM IGNORIERE ANDERE TASTEN 


350 WP = ASC {Z$) - 64: REM WANDLE UM AUF A/Z 
13120 DATA 255,242,228,215,203,192,181,171 
13130 DATA 161,152,143,135,127,120,112,107 
13140 DATA 101,95,90,85,80,75,71,67 

13150 DATA 63,59 


Speichern Sie dieses Programm als TASTEN A/Z ab. Starten Sie es und 
spielen Sie mit den Tasten A bis Z auf der Tastatur. Achten Sie auf die Töne. 
Wenn Sie eine hübsche Melodie gefunden haben, notieren Sie die Buchstaben 
auf dem Bildschirm, damit Sıe das Lied später wieder spielen können. 


Musikalische Botschaft 


Nun stellen wir Ihnen ein Programm vor, das Melodien mittels Information 
aus dem Datenspeicher spielt und nicht direkt mit der Tastatur. Es erlaubt 
eine bestimmte Folge von Tönen von der Tastatur in den Speicher zu lesen. 
Nach Betätigen der RETURN-Taste spielt das Programm die Tonfolge; es 
ist nicht mehr notwendig, für jeden Ton eine Taste zu drücken. 


Ändern Sie TASTEN A/Z wie folgt: 
Streichen Sie die Zeilen 300 bis 380 und fügen die folgenden Zeilen hinzu: 


10 REM „..MUSIE BOTSCHAFT TASTEN AZ 

11: 

2 REM FROGRAMM ZUR EINGABE UND ZUM SFIELEN VON TEXTEN(ALFHARETIS 
CH} 


13 3 
230 FRINT "GIER "MELCDIE’ EIN „ DANN DRUECEE RETURN ZUM SPIELEN" 


Du We Wu De 1. Eu 
240 FRIN]T 


250 INFUT "MELODIE: "ı7$ 
„00 WD = 50: REM TONDAUER 
10 GSOSUR 12300: REM SFIELE TEXT 


Speichern Sie dieses Programm als MUSIK BOTSCHAFT ab. Starten Sie es 
und benutzen Sie einige der Melodien, die Sie bereits notiert haben. Wie wäre 
es, wenn Sie Ihren Namen eingeben und hören, wie der Computer dies spielt? 
Wie klingen die Namen Ihrer Stadt oder Ihres Landes? Ein leicht variiertes 
Programm könnte nach Ihrem Namen fragen und diesen mehrmals spielen, 
vielleicht in veränderter Reihenfolge. 


Frage 4: Wie wird das Programm geändert, damit eine Melodie dreimal an- 
statt nur einmal gespielt wird? 


Ändern Sie MUSIK BOTSCHAFT durch Hinzufügen folgender Zeilen: 


10 REM »..VOR UND ZURLIECK-MUSIE BOTSCHAFT... 

11: 

12 REM GIR EINEN TEXT EIN, DANN SFIELE VOR UND ZURUECK 

i3: 

110 BF = 1: REM WIE OFT VOR UND ZURUECK”? 

250 INFUT "TUNE: "ıF$ 

zZ DB = "N" 

70 IF LEN (F$) THEN FOR J= 1 TO LEN (FS):B$ = B$ + MID$ (F$, LEN 
{F$) + 1 - J,D: NEXT : REM TEXT RUECKWAERTS 

z20 FOR I= 1 TO RF 

205 Z$ = F$: REM VORWAERTS 

ar0o 7% = B$: GOSUR 13300: REM ZURUECH. 

330 NEXT 


Speichern Sie dieses Programm als VOR/ZURUECK und starten Sıe es. 
Tippen Sie auf den Tasten A bis Z Ihre Melodie ein und hören Sie sich das 
Ergebnis an. Wir haben nun ein Programm, das eine Folge von Buchstaben 
zuerst in der eingegebenen Reihenfolge abspielt und dann nochmals in der 
umgekehrten Richtung. Nachdem Sie ein paar Wörter und Formulierungen 
ausprobiert haben, versuchen Sie einige ‘Palindrome‘ einzutippen, um zu 
hören, wie diese klingen. (Ein ‘Palindrom‘ ist eine Folge von Buchstaben, die 
in beiden Richtungen gelesen denselben Wortlaut ergibt. Zwei Beispiele hier- 
für sind: „Eine treue Familie bei Lima feuerte nie‘ oder ‚Neuer Dienst mag 
Amtsneid reuen‘.) 


Frage 5: Alle Töne haben die gleiche Länge. Welche Zeile muß geändert 
0 werden, um die Tondauer zu verlängern? 

Frage 6: Wie lautet die Variable, die angibt, wie oft die Buchstabenfolge 
7 vorwärts und rückwärts zu spielen ist? 


Piano 


Eine weitere Änderung des Tastenfeldes beinhaltet das folgende PIANO-Pro- 
gramm. Diesmal wird jeder Buchstabe des Tastenfeldes mit einer Note gleich- 
gesetzt. Anstatt einer alphabetischen Ordnung entsprechen nun die Tasten 
von links nach rechts Tönen mit steigender Frequenz. 


Um das Programm PIANO zu erstellen, machen Sie bitte folgende Änderun- 
gen im Programm TASTEN A/Z (nicht bei VOR/ZURUECK, obwohl diese 
Änderungen das Tastenfeld bei VOR/ZURUECK auch beeinflussen): 


10 REM ..,„FIANDO-TASTEN A/Z 

il: 

12 REM "PIANO" VERWENDUNG DER TASTEN A/Z 

13 : 

210 PRINT ""FIAND’ UNTER VERWENDUNG DER TASTEN A-Z" 
13120 DATA 171,203, 228,152,90,143, 155,127 

13130 DATA 67,120,113,107,1981,192,63,59 

13140 DATA 101,85,181,80,71,215, 95, 242 

13150 DATA 75,255 
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Speichern Sie dieses Programm als PIANO ab. Alles was verändert wurde, 
war wiederum nur die Zuordnung der Tonhöhen zu den einzelnen Tasten in 
den Zeilen 13120 bis 13150. Mit diesem Programm kann auf der Tastatur 
des Computers wie auf einem Piano gespielt werden. (Mit Ausnahme der Tat- 
sache, daß alle Töne die gleiche Länge haben und nicht mehrere Tasten 
gleichzeitig gespielt werden können.) Sicherlich fällt es mit dieser Anordnung 
der Töne jetzt leichter, Melodien zu spielen. 


Elektrische Orgel 


Eine Randbedingung aller bisherigen Programme ist, daß die Töne eine fest- 
gelegte Dauer haben. Wir können die Länge der Töne variieren, aber wir sind 
nicht in der Lage, die Dauer jedes einzelnen Tones unabhängig von den 
anderen Tönen zu verändern. Das folgende Programm macht von einer gänz- 
lich anderen Möglichkeit der Tondauerbestimmung Gebrauch. Ein Ton dauert 
so lange an, bis eine neue Taste gedrückt wird — dieser Effekt imitiert also 
eine elektrische Orgel. 


Modifizieren Sie das Programm PIANO wie folgt: 


10 REM ...ÜRGEL-FIAND... 
2 REM ELEKTRISCHE ORGEL 


100 GOSUR 13700: REM INITIALISIERE ORGEL FROGRAMM 

210 FRINT "’ORGEL’ VERWENDET DIE TASTEN A RIS Z" 

70 GOSUR 153700 

13592 : 

136905 REM x ORGEL * 

13594 REM EINGANGSVARIABLE: WF TONHDEHE 

13695 REM (WP=0 UND PROGRAMM NICHT GELADEN = NUR INITI 
ALISIERUNG) 

136599 ; 

13700 IF WS THEN 13700: REM UEBERFRUEFE,OR ORGEL-FROGRAMM GELADE 
N 

13710 WS% = 882: REM ORGEL ADRESSEN 

13720 IF WRZ = O THEN W = WFiWF = 0: GDSUR 13000:WP = We REM LADE 

ELANG FROGRAMM (SFEICHERE TOMHOEHE) 


13730 Z = 13800: GOSUR 19000: REM SETZE READ-DATA-ZEIGER 

13750 Z = WS%: REM LADE ORGEL PROGRAMM 

137680 READ Zi: IF Z1 > =D THEN POKE Z,21:2 = Z + 1: GOTO 13760 

13770 IF WE = 0 THEN RETURN : REM  SPERRE NUR FUER INITIALISIERUN 
G 

13797 ı 

13798 REM ORGEL PROGRAMM GESCHRIEBEN IN MASCHINENSFRACHE 

13799 ı: 

13800 DATA 172,21,2,185,73,3,141,31,3,173,0,192,48,14,174,31,3,173 
‚48,192 

13810 DATA 156, 7208,0,202,240,239,208, 248,96 

13890 DATA  -i: REM ZEICHEN ZUM BEENDEN DES DATENEINLESENS 


153900 FOKE WF%,WF: REM TONHDEHE 
12710 CALL WS% 
139720 RETURN 
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Speichern Sie dieses Programm als ORGEL ab. Spielen Sie damit, um zu 
sehen, wie es sich vom Programm PIANO unterscheidet. 


Klang-Effekte 


Zum Schluß möchten wir das sehr leistungsstarke Programm KLANG EF- 
FEKTE vorstellen. Da dieses Programm viele Möglichkeiten eröffnet, zeigen 
wir Ihnen einen systematischen Weg auf, es kennenzulernen. 


Eine Vielfalt von Klangeffekten wird möglich, wenn wir die folgenden Zeilen 
zum Programm KLANG EINHEIT hinzufügen. 


10 REM ...:ELANG EFFEETE-KLANG EINHEIT.. 

il: 

12 REM ELANG EFFEKT ENTWICKLUNG 

13 : | 

100 GOSUR 13400: REM INITIALISIERE KLANG EFFEETE FRÜGRAMM 

z10 Wi Ö 

220 W2 

2230 W3 

240 W4 

250 W5 

260 W& 

270 W7 

„00 TEXT : HOME 

s10 FRINT : FRINT "LAENGE JEDES TONES : ";Wi 

320 PRINT » FRINT "SCHRITTWEITE ZWISCHEN ZWEI TOENEN :"; WE 

a30  FRINT : FRINT "ERSTER TON » "WE 

340 FRINT : FRINT "ANZAHL DER TOENE IN EINEM ZYELUS: ";W4 

>50 PRINT : PRINT "1=ABWAERTS; -1=AUFWAERTS; G=AUF-UND ARBWAERTS":WS 

360 FRINT : FRINT "FAUSE ZWISCHEN ZWEI WIEDERHOLUNGEN: "ılls 

>70 PRINT : FRINT "ANZAHL DER WIEDERHOLLNGEN: ":W7 

so0 PRINT : VTAR 18 

10 PRINT "DRUECEE RETURN UND HOEREN SIE. .."; 

320 GET 7$ 

a0 IF Z$ = ECHR$ (723 THEN END : REM LEERTASTE 

40 GOSUR 13400 

&00 FRINT : FRINT 

&10 FRINT "DRUECKE RETURN UND FRORIEREN SIE NEUE VARIABLEN AUS...."; 

620 GET Z$ 

630 IF Z$ = CHR$ (32) THEN END : REM LEERTASTE 

700 TEXT : HOME 

710  FRINT "GEBEN SIE FUER JEDEN FARAMETER EINEN WERT EIN ODER DRUECKE 
N SIE RETURN, UM DEN ALTEN WERT BEIZUBEHALTEN. " 

810 PRINT : PRINT "ALTE DAUER EINES JEDEN TONES: "Wis" NEW: "+: INFUT 
2$: IF LEN (Z$) THEN WI = WAL (7% 


nun u 
be 
es: 


20 PRINT : FRINT "ALTE SCHRITTWEITE ZWISCHEN 2 TOENEN: ";W2;" NEW: "; 
» INPUT Z$: IF LEN (2%) THEN WE = VAL (Z$) 
850 PRINT : PRINT "ALTER START TON : "W355" NEW: "= INFUT Z$: IF LEN 
(Z2$) THEN WE = VAL (7$) 
840 PRINT : PRINT "ALTE ANZAHL VON TOENEN IM ZYKLUS: "zW4;" NEW: "s: INPUT 


2%: IF LEN (Z$) THEN W4 = VAL (7%) 

850 FRINT : PRINT "ALTER AUF/ABWAERTS FARAMETER ":W5;" NEW: "3: INPUT Z 
$: IF LEN (2$) THEN WS = VAL (78) 

860 FRINT = PRINT "ALTE FAUSE ZWISCHEN 2 ZYELEN ";Wös" NEW: "3: INPUT 
2%: IF LEN (Z$) THEN WE = VAL (79 | 

870 PRINT : PRINT "ALTE ANZAHL VON WIEDERHOLUNGEN: "3W75;" NEW: ";: INFUT 
2$: IF LEN (Z$) THEN W7 = VAL (Z$) 

870 GOTO F00 


Speichern Sie dieses Programm unter dem Namen KLANG EFFEKTE ab. 
Lassen Sie es einige Male ablaufen und lesen Sie danach an dieser Stelle 
weiter. 


Das Programm gibt die Zahlenwerte jedes Parameters mittels Bildschirm an 
und erzeugt nach Drücken der RETURN-Taste den dadurch bestimmten 
Klangeffekt. Nun fragt es nach den Änderungen der Parameter, wobei jeder 
Wert einzeln abgefragt wird. (Durch einfaches Drücken der RETURN-Taste 
wird der aktuelle Wert beibehalten.). 


Die Vielfalt von Klangeffekten, die durch dieses Programm erzeugt werden, 
ist außerordentlich groß. Obwohl es verlockend ist, mit jedem Durchlaufen 
des Programms alle Parameter zu variieren, wird es zum Kennenlernen nütz- 
licher sein, nur ein oder zwei Parameter gleichzeitig zu ändern. 


Haben Sie Töne gefunden, die Ihnen gefallen, variieren Sie die benutzten 
Zahlenwerte. Auf diese Weise sehen Sıe, ob der Klang weiter verfeinert wer- 
den kann. Notieren Sie sıch die Zahlenwerte, damit das Programm mit diesen 
speziellen Werten auch für zukünftige eigene Programmentwicklungen zu be- 
nutzen ist. 


Schauen Sie zuerst, wie sich der Klang ändert, wenn der Anfangston verän- 
dert wird. Die möglichen Töne in einem Zyklus reichen von O (hoher Ton) 
bis 255 (tiefer Ton). Wir starten mit O0, also dem höchsten Ton. Versuchen 
Sie einige Anfangstöne, die tiefer liegen. Ursprünglich haben wir die Anzahl 
der Töne in einem Zyklus auf zehn festgesetzt; versuchen Sie, diese zu ver- 
kleinern. Haben Sie bemerkt, daß bei kürzer werdenden Zyklen der Klang 
einem Knacken ähnelt? Die Schrittweite gibt die Anzahl von Tönen zwischen 
zwei verschiedenen Noten an. Bei größerer Schrittweite wird der resultieren- 
de Klangeindruck weniger fließend sein. 


Nun möchten wir die Anzahl der Wiederholungen eines Zykluses und die 
Länge der Pause zwischen zwei Zyklen verändern. Keine dieser Änderungen 
hat große Auswirkungen auf den Klang. Dagegen wird die Änderung des 
AUF/ABWAÄRTS-Parameters den Höreindruck bedeutend verändern. 

Es gibt folgende Möglichkeiten: 1 (nur aufwärts), - 1 (nur abwärts) und O 
(auf- und abwärts). | 

An dieser Stelle wird der Leser schon etwas vertrauter mit den bisher er- 
läuterten Programmteilen sein. Nachdem das Programm einige Zeit benutzt 
wurde, ist es leicht die Art der Klangeindrücke vorherzusagen, die durch die 
unterschiedlichen Werte der Variablen verursacht werden. 


Bis hierhin haben Sie sicher eine kleine Sammlung von Zahlenkombinationen 
aufgeschrieben, die Klänge und Töne nach Ihrem Geschmack erzeugen. Beim 
Einbau dieses Programms ın eigene Programme werden die Werte den ent- 
sprechenden Parametern zugeordnet, um so die gewünschten Klangeffekte zu 
erzeugen. 
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Zusammenfassung 


Im ersten Kapitel haben wir gezeigt, wie die BELL-Taste und der SPEED- 
Befehl genutzt werden können. Wir haben außerdem ein eigenständiges Pro- 
gramm zur Simulation eines Pianos erhalten und ein weiteres, das eine Orgel 
simuliert. 

Das nützlichste Programm dieses Kapitels ist KLANG EINHEIT. Dieser Bau- 
stein erlaubt es, Musiktöne aller Art zu erzeugen und exotische Klangeffekte 
zu produzieren. Wir werden KLANG EINHEIT in einigen weiteren Program- 
men in diesem Buch verwenden. 


Unterprogramm zur Klangerzeugung: Zusammenfassende Hınweise 


Wir haben gezeigt, wie die verschiedenen Klangmöglichkeiten des APPLE be- 
einflußt werden können. Nun wollen wir demonstrieren, wie eigene Program- 
me des Lesers mit Tönen und Musik ausgestattet werden können. 

Die Variablenbezeichnungen W, X, Y, und Z werden in unseren Unterpro- 
gramm-Einheiten benutzt und sollten daher in eigenen Programmen nicht 
mehr verwendet werden. (mit Ausnahme der Kommunikation mit unseren 
Unterprogrammen). Weiter sollten die Programme keine Zeilennummern 
zwischen 10000 und 50000 enthalten, denn dort sind unsere Programm- 
listings angesiedelt. 


Töne und Melodien: Zusammenfassung 


Um Musik mit den Tasten der Buchstaben A bis Z zu erzeugen, müssen wir 
folgendes wissen: 


Beginn des Unterprogramms: 13300 
Eingangsvariablen: Z$ Textvariable 
WDTondauer 


Ein Musikprogramm kann zum Beispiel so aussehen: 
1220 Z$ = “LUSTIGE APPLE SPIELE“ 


1230 WD = 100 
1240 GOSUB 13300 
1250: 


1260 REM FORTSETZUNG DES PROGRAMMS. 


So einfach ist das Ganze! 


Klangeffekte: Zusammenfassung 
Um Klangeffekte zu erzeugen, können Sie bis zu sieben Variablen festlegen 
oder ihren vorbestimmten Wert benutzen. 


Beginn des Unterprogramms: 13400 
Eingangsvariablen: 

W1: Länge der Töne: = 0 

W2: Schrittweite zwischen den Tönen: = 0 
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W3: 
W4: 
W5: 


W6: 
W7: 


Anfangston: 0 bıs 255 

Anzahl der Töne in einem Zyklus 

1 = Tonfolge abwärts, - 1 = Tonfolge aufwärts, 0 = Tonfolge auf- 
und abwärts 

Pause zwischen Wiederholungen 

Anzahl der Wiederholungen 


Ein Programm zur Erzeugung von Klangeffekten kann wie folgt geschrieben 


werden: 


1300 W1=4: W2=1: W3=50: W4= 20: W5 =0: W6 = 200: W7=4 
1310 GOSUB 13400 

1320: 

1330 REM FORTSETZUNG DES EIGENEN PROGRAMMS 


Lösungen zu Kapitel 1 




















110 H = 20 
120C=3 
Alle meine Entchen ... 


305 FORJ=1TO3 
314 NEXT 


Zeile 300 
Ändere den Wert von BF in Zeile 110 
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Kapitel 2 
Die niederauflösende Grafik 


In diesem Kapitel werden die Grundprinzipien der niederauflösenden Grafik 
(im folgenden LO-RES-Grafik genannt) und die Programmierung einiger 
Farbeffekte erläutert. Wir zeigen, auf welche Weise Farbpunkte auf dem Bild- 
schirm dargestellt werden können. Anschließend erweitern wir unsere Über- 
legungen auf farbige Linien, Rechtecke, Begrenzungen und zeigen Program- 
me, die den ganzen Bildschirm mit Farbe ausfüllen. 

Das Kapitel soll uns mit dem Gebrauch der LO-RES-Grafik intensiv vertraut 
machen, damit die Möglichkeiten von LO-RES in eigenen Programmen ver- 
wendet werden können. Auch wenn Sie die speziellen Programme dieses 
Buches nicht benutzen, können Sie die hier gemachten Überlegungen anwen- 
den und eigene Programme mit Farbeffekten erstellen. (In Kapitel 3 werden 
wir sehen, wie Bilder oder Muster von LO-RES-Farbpunkten erstellt und ver- 
ändert werden.) 

Der APPLE-Computer hat sechzehn Farben zur Verfügung, die auf dem Bild- 
schirm bzw. Farb-Monitor gezeigt werden. Durch Gebrauch der niederauf- 
lösenden Grafik können wir diese Farben verwenden. Geringe Auflösung be- 
deutet, daß Details nur begrenzt darstellbar sind. Der kleinste adressierbare 
(d.h. veränderbare) Punkt ist etwa halb so groß wie ein auf dem Schirm aus- 
gedrucktes Textzeichen. Im Gegensatz dazu können mit der hochauflösen- 
den Grafik sehr viel kleinere Punkte dargestellt werden; dies ergibt Bilder mit 
besserer Detailwiedergabe, doch leider sind bei der hochauflösenden Grafik 
nur sechs Farben verfügbar. Wir werden auf die hochauflösende Grafik in 
Kapitel 4 näher eingehen. 

Es gibt zwei Formen der LO-RES -Grafik. Die erste hat vierzig Grafikzeilen 
und ein vier Zeilen großes Textfenster. Die andere erlaubt es, den ganzen 
Bildschirm (48 Zeilen) mit Grafik auszufüllen. Die erste Form werden wir 
des öfteren benutzen, denn sie gibt uns die Möglichkeit, Textanweisungen 
zusammen mit der Grafik auf dem Bildschirm erscheinen zu lassen. 
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Text und Grafik können nur durch Verwendung des vier Zeilen großen Text- 
fensters gemischt werden. Später werden wir zeigen, wie mittels LO-RES- 
Grafik Blockbuchstaben zum Schreiben von Wörtern oder Zahlen erstellt 
werden. 


Die Farbgrafik des APPLE-Computers 


Zur Programmierung von Farbeffekten in LO-RES-Grafik werden nur fünf 
Befehle benötigt: GR, COLOR, PLOT, HLIN und VLIN. Mit GR schaltet 
der APPLE in die mit dem Textfenster versehene Form der LO-RES-Grafik. 
Der Bildschirm wird gelöscht und erscheint völlig schwarz. (Die zweite Form 
der LO-RES-Grafik wird weiter unten behandelt.) 

Mit COLOR wird eine bestimmte Farbe gewählt. Sie wird so lange verwen- 
det, bis sie mit einem anderen COLOR-Befehl geändert wird. So ergibt z.B. 
der Befehl COLOR = 4 die Farbe dunkelgrün. Die Zuordnung der Farbe ist 
aus der nachfolgenden Tabelle ersichtlich: 


0 SCHWARZ 8 BRAUN 

1 MAGENTAROT 9 ORANGE 

2 DUNKELBLAU 10 GRAU 2 

3 VIOLETT 11 ROSA 

4 DUNKELGRUN 12 HELLGRÜN 
5>GRAU1 13 GELB 

6 BLAU 14 AQUAMARINBLAU 
7 HELLBLAU 15 WEISS 


Der Befehl PLOT weist den APPLE an, einen Farbpunkt an einer bestimm- 
ten Stelle zu zeichnen. Beim Arbeiten mit Textfenster ist der Bildschirm in 
vierzig mal vierzig Punkte unterteilt. Die Punkte sind von O bis 39 numeriert. 
Jeder Punkt wird durch ein Zahlenpaar beschrieben, wobei die H-Koordinate 
(horizontal) an erster Stelle, die V-Koordinate (vertikal) an zweiter Stelle an- 
gegeben wird. Der Punkt 0,0 befindet sich in der linken, oberen Ecke des 
Bildschirms. Der Befehl PLOT 3,9 bewirkt, daß ein Punkt in der dritten Spal- 
te von links und der neunten Zeile von oben gezeichnet wird. 
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Mit dem Befehl HLIN werden zwei Punkte einer bestimmten Zeile horizontal 
verbunden. Mit VLIN werden zwei Punkte einer bestimmten Spalte vertikal 
verbunden. So bewirkt z.B. HLIN 3,23 AT 9 das Zeichen einer horizontalen 
Linie in Zeile neun, von der dritten bis zur dreiundzwanzigsten Spalte. 


Zusammengefaßt: Ein farbiger Punkt wird auf folgende Weise erzeugt: 


— Umschalten auf LO-RES-Grafik, 

— Wahl einer Farbe, 

— Eingabe des PLOT-Befehls. 

Mit weiteren PLOT-Befehlen werden andere Punkte derselben Farbe gezeich- 
net. Die Befehle HLIN und VLIN bewirken das Zeichen horizontaler und 
vertikaler Linien. Durch Verwenden des COLOR-Befehls wird die Farbe vor 
dem Zeichnen des nächsten Punktes verändert. 


Probieren Sıe folgendes Programm aus: 


100 GR: COLOR =4 
110 HLIN 3,23 AT 9 
120 VLIN 3,25 AT 23 
130 END 


Farbige Punkte 


Hier ist ein einfaches Programm, das an zufällig gewählten Stellen des Bild- 
schirms farbige Punkte ausdruckt. 


10 REM ...FARBPUNKTE... 

11: 

100 GR : HOME 

200 PRINT 

210 PRINT "DRUECKE EINE BELIEBIGE TASTE ZUM BEENDEN DES FRÜOGRAMMS 


u." 
300 H = INT (40 X RND (1)) 

400 V = INT (40 X RND (1)) 
500 COLOR= INT (16 X RND (19) 
600 PLOT H,V 


oo P = 200 
710 FOR zZ = 1 TO F: NEXT : REM FAUSE 
800 IF PFEEK ( - 16384) X 128 THEN F00: REM KEINE TASTE GEDRUECKT 


810 GET Z$: REM LOESCHE  TASTENDRUCH 


Die Bildschirmkoordinaten zum Ausdruck der Punkte werden in den Zeilen 
300 (horizontal) und 400 (vertikal) festgelegt. Für jede Koordinate wird eine 
Zahl zwischen O und 39 per Zufall ermittelt. Für die Farben wird eine Zu- 
fallszahl zwischen O und 15 gewählt. Damit stehen alle möglichen Farben zur 
Verfügung. Der PLOT-Befehl wird in Zeile 600 erteilt. 

Die Gleichungen in den Zeilen 300 und 400 können verallgemeinert werden. 
So ist es möglich, eine zufällige Zahl zwischen zwei beliebigen Zahlen A und 
B auszuwählen. Die allgemeine Anweisung lautet: 


LETR=INT((B-A+1)*RND())+A 
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Wichtig in diesem Programm ist schließlich das Programmieren einer Pause ın 
Zeile 700. Das Verändern des Zahlenwertes der Variable ändert die Zeit- 
spanne zwischen dem Ausdrucken zweier Punkte. 


Geben Sie dieses Programm ein und speichern Sie es unter dem Namen 
FARBPUNKTE. Starten Sie das FARBPUNKTE-Programm. Es kann beendet 
werden durch das Betätigen einer beliebigen Taste. Dabei bleibt der Rechner 
jedoch auf LO-RES-Grafik geschaltet. In dieser Form stehen nur vier Text- 
zeilen am unteren Bildschirmrand zur Verfügung. 


Um den ganzen Bildschirmbereich wıeder für Text verwenden zu können, 
geben Sie das Kommando TEXT ein. Auf dem Bildschirm erscheinen eine 
Vielzahl von schwarzen und weißen Zeichen, die in schneller Folge aufleuch- 
ten. Mit dem Befehl HOME wird der Bildschirm vollständig gelöscht. Der Be- 
fehl TEXT: HOME schaltet den Computer auf die Textform um und löscht 
sofort den Bildschirm. Mit GR:HOME wird die Grafik auf dem Bildschirm 
gelöscht, aber der Rechner verbleibt ın der LO-RES-Grafikform. 

Probieren Sie, einige Parameter in dem FARBPUNKTE-Programm zu ändern. 
Was geschieht? 


Frage 1: Wie muß FARBPUNKTE verändert werden, damit alle Punkte mit 
der Farbe rosa gezeichnet werden? 


Frage 2: Mit dem Programm FARBPUNKTE sollen gelbe Punkte in der 
oberen Hälfte des Bildschirms gezeichnet werden? Welche Ände- 
rungen sind notwendig? 


Frage 3: Ein Quadrat mit zehn Punkten Seitenlänge im Zentrum des Bild- 
schirms soll mit violetten Punkten ausgefüllt werden. Welche Be- 
fehle sind notwendig? 


Sicherlich können einige dieser Variationen des FARBPUNKTE-Programms 
in eigenen Programmen des Lesers angewandt werden. Wie können wir z.B. 
die Augen eines wilden Tieres darstellen, die nachts im dunklen Dschungel 
aufleuchten? Wir nehmen ein dunkles Grün und gelbe Farbpunkte und lassen 
diese auf dem dunklen Bildschirm erscheinen. Ein weiteres Beispiel: Wir 
schauen von oben auf Münzen, die in einen Wunschbrunnen geworfen wer- 
den. Dies wird dargestellt durch gelbe Farbpunkte, die in einem kreisförmigen 
Bereich im Zentrum des Bildschirms erscheinen. In beiden Fällen kann die 
Anzahl der Farbpunkte, die auf dem Bildschirm erscheinen, durch eine FOR- 
NEXT-Schleife kontrolliert werden. 


Hier ist das vollständige Listing von WUNSCHBRUNNEN: 


10 REM ... WUNSCHBRLINNEN. .. 


100 GR : HOME 


120 RA = 16: REM RADIUS DES BRUNNENS 

130 RT = RA X RA: REM  OUADRAT DES RADIUS 
140 HO = 19: REM  H-FOS DES MITTELPUNKTS 
150 VO = 19: REM V-FOS 

zZo0  FRINT 
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210 FRINT "DRUECKE EINE BELIEBIGE TASTE ZUM BEENDEN DES FROGRAMMS 

200 REM  RBESTIMME ERST H,V IN IN EINEM QUADRAT MIT ZENTRUM IN (HO,VO) U 
ND SEITENLAENGE = ZIRA 

210H= INT{ZXRAK FRND (DD) + HNO - RA 

400 V= INT (ZXRAK RND (DD) + VO - RA 

410 REM DANN KONTOLLIERE, OR (H,V) IN DER MITTE DES KREISES IST 

20 IF (H-HO =“ 2 + (V- VO) 2 > RZ THEN 310: REM  BESTIMME EINEN N 

EUEN FUNET, WENN DER ERSTE IM QUADRAT,ABER NICHT IM KREIS IST 

so COLOR= 13 

“OO PLOT H,V 


aOr=l 
710 FOR Z= 1 TO Fr: NEXT : REM FAUSE 
800 IF FEEH ( - 16384) © 128 THEN 300: REM KEINE TASTE GEDRUECKT 


gi0 GET Z$: REM LOESCHE  TASTENDRUCK 


Dies ist nur eine kleine Auswahl der Möglichkeiten, dıe mit einem Programm 
zur Erzeugung von Farbpunkten programmiert werden können. 


Ein weiterer Weg zur Änderung des Programms ergibt sich durch Verwen- 
dung einer variablen Zeitverzögerung; sie wird durch den Wert der Variablen 
P in Zeile 700 angegeben. Dazu wählen wir einen Intervallbereich, in dem 
der Parameter P enthalten sein soll. Nun benutzen wir die Anweisung, die auf 
Seite 18 gegeben wurde. 


Frage 4: Es sollen nur Punkte in den Farben blau und orange gezeichnet 


werden. Wie muß das Programm geändert werden? (Siehe Farb- 
tabelle auf Seite 17) 


Frage 5: Es sollen abermals Punkte in den Farben blau und orange gezeich- 
net werden. Dabei soll die Farbe blau dreimal so häufig erscheinen 
wie die Farbe orange. Welche Befehle sind notwendig? 


Das folgende Programm simuliert das ““Wachsen‘‘ von Blumen auf einem 
leeren Feld. Für die Blumen haben wir drei Farben gewählt (rot, gelb und 
violett). Jede dieser Farben besitzt eine Wahrscheinlichkeit von 20%. Die 
Farbe grün hat eine Wahrscheinlichkeit von 40%. 


Verändern Sie das FARBPUNKTE-Programm wie folgt: 


10 REM ». «BLUMEN - FARBFUNKTE... 

11: 

400 Y = INT (0 k FND (17) + 10 

=s00 2 = INT {100 X RND {DIDI + 1: REM 17/100 


Si10 COLOR= (7 = K1+ (Z> ÜANDZÄ =40) K1I + (Z > 40 AND Z 
= KID#+ (2 ED) KA 


Speichern Sie dieses Programm als BLUMEN. 

Beobachten Sie, wie die Blumen den Bildschirm bedecken. Um sicherzu- 
stellen, daß die Blumen nicht den Himmel bedecken, haben wir die V-Ko- 
ordinate begrenzt. Dadurch erscheinen keine Punkte oberhalb der Koordinate 
V = 10 (siehe auch Zeile 400 in obigem Listing). 
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Farbige Linien 


Der Unterschied zwischen dem Zeichnen von Punkten und dem Zeichnen 
von Linien ist folgender: für Punkte werden zwei Koordinaten benötigt, für 
Linien müssen beide Endpunkte angegeben werden. Da wir nur horizontale 
oder vertikale Linien zeichnen lassen, ist die Angabe der Endpunkte einfach. 


Bei dem Befehl HLIN werden die Spalten angegeben, wo die Linie beginnt 
bzw. endet. Weiter muß die vertikale Entfernung vom oberen Rand des Bild- 
schirms festgesetzt werden. HLIN 10,20 AT 5 ergibt eine horizontale Linie 
in Zeile 5, die von Spalte 10 bis Spalte 20 verläuft. VLIN 10,20 AT 5 ergibt 
eine vertikale Linie in Spalte 5; Sıe reicht von Zeile 10 bis zur Zeile 20. 


Im folgenden Programm werden Linien statt Punkte gezeichnet. Es baut auf 
den bisher gezeigten Programmen auf. Das Programm wählt die Endpunkte 
selbst aus und bestimmt, ob die Linie horizontal oder vertikal verläut. 
Außerdem wird die Farbe der Linien und die Zeitverzögerung zwischen dem 
Zeichnen zweier Linien gewählt. 


Ändern Sie das FARBPUNKTE-Programm wie folgt ab: 


10 REM „.. FARBIGE LINIEN-FARRBFUNKTE 

il: 

„00 Hl = INT {40 x RND (DD) 

„so HZ = INT {40 X RND {1DD) 

400 Yi = INT {40% RND (19) 

450 YV2= INT {40 & RND (19 

soo D INT (Z X RAND {ld}: REM D=0 (HLIND: =1 (VLIN) 


= 0 THEN HLIN H1L,H2 AT VI 


a0 IFD=4 
IF D=1 THEN VLIN VYLVZ AT HI 


al 


Speichern Sie das Programm als FARBIGE LINIEN und starten Sie es. 
Varıieren Sie einige Parameter. Wie wird die Anzahl der Farben begrenzt 
(Zeile 500)? 


Die folgenden Änderungen des Programms FARBIGE LINIEN ermöglichen 
es, die Länge der Linien zu begrenzen. 


10 REM „.«LAENGE LINIEN-FÄRRBIGE LINIEN... 

11: 

120 HL 20: REM MAXIMUM HLIN LAENGE 

130 VL 10: REM WLIN 

s60 IF ABS (HZ - Hi) > HL THEN 350: REM NOCH EINMAL - ZU LANG 
460 IF ABS (VE - Vi) > VL THEN 450: REM NOCH EINMAL - ZU LANG 


Speichern Sie dieses Programm als LAENGE LINIEN. 


Das Programm kann so varliert werden, daß der Bildschirm mit kurzen verti- 
kalen Linien ausgefüllt wird. Dazu müssen lediglich die horizontalen Linien 
eliminiert werden, was durch Änderung von Zeile 600 geschieht: 


600D=1. 
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Noch interessanter wird das Programm, wenn wir es interaktiv gestalten. Bis 
jetzt wurden alle Variablen vom Programm selbst bestimmt. Es ist leicht da- 
hingehend zu verändern, daß die Variablenwerte über die Tastatur eingelesen 
werden. Machen Sie folgende Änderungen am Programm LAENGE LINIEN: 


10 REM «.„.„EINGABE FARBE - LAENGE LINIEN... 

11: 

150 CL = 1: REM ANFANGSFAÄRBE 

210 PRINT "DRUECKE ESC FUER FROGRAMMENDE .„..."; 

500 Z$ = "ASDFGHJKLZXCVRNM" 

310 GOSUR 1000: REM UEBERPRUEFE TASTENDRUCK 

520 IF Z THENCL = Z - 1: REM NEUE FARBE BEI TASTENDRÜUCK 

530 COLOR= CL 

800 Z$ = CHR$ (ZI: REM VERERFRUEFE,OR ESC GEDRUECKT 

s1i0 GOSUB 1000 

z0 IF Z= 0 1THEN 300 

900 END 

9971; 

992 REM * UEBERFRUEFE,OB TASTEN VORGESEHEN 

993 REM ENTRY: 2$ TEXT,GIBT VERWENDETE TASTEN AN 

994 REM EXIT: Z 0 (KEINE ZUORDNUNG) UND TASTENDRUCH (WENN VORHANDEN) 
NICHT GELOESCHT 

995 REM Z J (W’TER ZEICHEN IN Z$) UND TASTENDRUCHK GELDESCHT 

9797: 

1000 Z = 0: REM SETZE FLAG KEINE ZUORDNUNG 

1010 Zi = FEEH ( — 16384) - 128: REM LESE TASTENDRUCK 

1020 IF Zi © O0 THEN RETURN : REM KEINE TASTE GEDRUECHKT 

1030 IF LEN (Z$) = OO THEN RETURN : REM KEINE ZEICHEN VORHANDEN 

1040 FOR Z2 = 1 TO LEN (Z$) 

1050 IF Zi = ASC ( MID$ (Z$,2Z2,1223 THEN Z = ZZ: GET Zi$: REM ZUORDNLIN 
G ERLEDIGT-TASTENDRUCHE GELODESCHT 

1050 NEXT 

1070 RETURN 


Speichern Sie dieses Programm als EINGABE FARBEN. Auf dem Bildschirm 
erscheinen nur rote Linien. Drücken Sie, während das Programm abläuft, 
einige der Tasten in den beiden unteren Reihen. (A bis L oder Z bis M.) 
Jedes Betätigen einer Taste ändert die Farbe der ausgedruckten Linien. Wir 
haben jeder Taste eine der APPLE-Farben zugeordnet (Zeile 500). Die Zu- 
ordnung ist natürlich völlig beliebig. Als Zuordnungsschema haben wir die 
Reihenfolge der Farben im Regenbogen benutzt. Ebenso gut kann jedes 
andere Schema benutzt werden. 


Das Programm erhält die Variablenwerte über die Tastatur. Die Zahlenwerte 
können während des Programmablaufs direkt geändert werden. Mit diesem 
Prinzip können weitere Änderungen vorgenommen werden. Wir bestimmen 
die Länge der horizontalen Linien über die Tasten 1 bis 9, und die vertikalen 
Linien mit Hilfe der Tasten Q bis O0. Die Tasten auf der linken Seite der 
Tastatur produzieren kurze Linien. Die Tasten auf der rechten Seite ergeben 
längere Linien. 
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Ändern Sie EINGABE FARBEN wie folgt: 


10 REM .„.„„EINGABE LAENGEN-EINGABE FARBEN... 

il: 

310 Z$ = "123456789" 

320 GOSUB 1000 

330 IF Z THENHL = 2 %* Z: REM NEUE HLIN-LAENGE,WENN TASTE GEDRUECKT 

340 2=1-2%x INT (2x RND (1): REM +1, 1 

350 H2 = Hi + ZU HL: REM + OR - HL 

360 IF H2X« 0 0R HZ > 39 THENH2 = Hl - ZAHL: REM - ODER + „WENN AUS 
SERHALR DES VORGESEHEN INTERVALLS 

410 Z$ = "QWERTYUIO" 

420 GOSUR 1000 

430 IF Z THEN VL = 2% Z: REM NEUE VLIN-LAENGE, WENN TASTE GEDRUECKT 

440 2=1-2X% INT (2% RND (DI): REM +1, -1 

450 V2 =Wi + Z3 VL: REM + OR - VL 

460 IF V2«<0O0R V2 > 39 THEN VZ = VI - ZA VL: REM - ODER + „WENN AUS 
SERHALB DES GUELTIGEN BEREICHS 


Speichern Sie dieses Programm unter dem Namen EINGABE LAENGE. Es 
macht sehr viel Freude, mit dem Programm interaktiv zu arbeiten, denn so 
besteht eine unmittelbare Kontrolle über das, was der Computer zeichnet 
und auf dem Bildschirm demonstriert. Wichtig beim Entwerfen von Program- 
men ist deshalb die Interaktivität, denn das Spielen mit interaktiven Pro- 
grammen bereitet dem Benutzer mehr Spaß. 


Die Farbpunkte, die bei der LO-RES-Grafik auf dem Bildschirm erscheinen, 
sind nicht exakt quadratisch. Die waagerechte Ausdehnung ist größer als die 
senkrechte. Dies folgt aus der Struktur der LO-RES-Hardware. Aus dem 
gleichen Grunde sind vertikale Linien etwas dicker und kürzer als horizontale 
Linien, obwohl die Längenvariablen bei beiden den gleichen Wert haben. 


Wie leicht zu erkennen ist, können in diesem Programm durch Variation von 
Parametern viele weitere interessante Effekte erzielt werden: Die Anzahl der 
Farben kann begrenzt werden, oder die horizontalen und vertikalen Längen 
können auf andere Art und Weise den Tasten zugeordnet werden. 


Der nächste Schritt ist das Zeichnen von Rechtecken. Dabei zeichnen wir zu- 
erst eine Linie und geben an, wie weit und in welche Richtung die Linie ver- 
breitert werden soll. Das letzte Programm dieses Abschnitts zeichnet farbige 
Rechtecke. Ändern Sie EINGABE LAENGE wie folgt: 


10 REM .» „EINGABE RECHTECHKE-EINGABE LAENGE 

il: 

650 IFD= 0 THEN FÜR Z = v1 TO VZ STEF SGN (WE - Wil HLIN HL,HZ AT Z 
ı NEXT 

0 IFD= 1 THEN FÜR Z = Hi TO H2 STEF SGN {HZ - Hlds YLIN VYLWEZOATZ 


» NEXT 


Speichern Sie dieses Programm als EINGABE RECHTECKE. 


Mit den Tasten 1 bis 9 kann die Breite der Rechtecke varııert werden, die 
Tasten Q bis O ändern die Höhe und die Tasten A bis M die Farben. Wir 
sehen daher einen direkten Zusammenhang zwischen dem Betätigen der 


Tasten und der Bildschirmwiedergabe. 
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Weitere Farbprogramme 


Hier stellen wir weitere Möglichkeiten vor, den Bildschirm farbig zu gestal- 
ten. Zuerst zeigen wir ein Programm zum Zeichnen eines farbigen Randes. 
Dies ist nützlich, um die Aufmerksamkeit auf die Bildschirmwiedergabe zu 
lenken. Das Programm erzeugt einen farbigen Rand von der Breite einer 
Zeile um den Bildschirm herum. Die Farbe des Randes wird in Zeile 500 fest- 
gelegt. 

Speichern Sie dieses Programm als RANDI. 


Wir können RAND1 dahingehend ändern, daß es Ränder verschiedener Farbe 
zeichnet, die aufeinander folgen. Hier sind beide Programme. 


10 REM „..BORDER... 
il: 

100 GR : HOME 

500  COLOR= 1 

&00 HLIN 0,39 AT O 
610 WVLIN 1,39 AT 39 
620 HLIN 38,0 AT 39 
630 WVLIN 38,1 AT O 


Durch Löschen der Zeilen 600 bis 630 und Hinzufügen der folgenden Zeilen 
erhalten wir ein allgemeiner verwendbares Programm. 


10 REM ...RÄANDZ - RANDI... 
il: 
400 Z = O0: REM Oo FUNETE VOM RAND AUS 
410 GOSUR 700 
70 END 
891: 


872 REM %* LOW-RES RAND X 

873 REM EINGANG: Z ANZAHL DER FUNKTE VOM RöND AUS 
894 REM FARBE GESETZT 

8997 : 

900 Z1=230-7G 

910 HLIN 2, ZLATZ 

920 WLINZ + 1,Z1 AT Zi 

930 HLIN Z1 - 1,2 AT ZI 

940 WLIN ZI -1.2+1ATZ 

950 RETURN 


Speichern Sie dieses Programm als RAND2. 


Frage 6: Wie muß RAND2 geändert werden, damit die Umrandung des 
Bildschirms drei Zeilen nach innen eingerückt wird? 
Frage 7: Wie lauten die Befehle zum Zeichnen einer doppelten Umrandung, 


wobei sich zwischen den beiden Rändern noch freier Raum be- 
findet? 


Ein Programm, das in der Lage ist, den Bildschirm zu säubern (d.h. schnell 
und fließend mit Farbe auszufüllen), kann sehr nützlich sein. Das folgende 
Programm erreicht dies durch das Zeichnen horizontaler Linien. 
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10 REN ». „WASCHEN... 
&i 

15 GR: HOME 

00 COLOR= 1 

Ho0 FOR Z = 0 TO 59 
610 HLIN 0,39 AT Z 
20 NEXT 


Speichern Sie dieses Programm als WASCHEN. 


Um Streifen in wechselnder Farbe zeichnen zu lassen, wird das Programm 
WASCHEN wie folgt geändert: 


10 REM ... STREIFEN - WASCHEN 

il: 

so0 Ci = 3: REM ERSTE FARBE 

s10 C2 = 7: REM ZWEITE FARBE 

520 5 = Ci: REM AKTUELLER FARAMETER 

605 COLOR= CıC = Ci + CZ - Cr REM GEHE ZU ANDERER FARBE UEBER 


Das WASCHEN-Programm stellt eine Hintergrundfarbe zur Verfügung. Über 
diesen Hintergrund können wir andere Linien, Punkte und sogar Bilder zeich- 
nen, was wir im nächsten Kapitel zeigen. Die Hintergrundfarbe im WASCHEN- 
Programm kann durch Änderung der Zeile 500 gewechselt werden. 


Ein weiterer Weg, den Bildschirm farbig auszufüllen, ist das Zeichnen von 
Streifen in Spiralenform: 


10 REM „.‚ärliRfnlE... 
il: 
100 GR : HOME 
120 HO = 19: REM H-FÜOS DES ZENTRUMS 
130 VO = 19: REM \V-FOS 
140 N = 19: REM ZAHL DER SFIRALWINDUNGEN 
iso F= 1: REM FAUSE ZWISCHEN DEM ZEICHNEN DER SEGMENTE 
200 FOR JI=N TOO STEF -1 
zi0 Hl = HO - J: REM LINKER RAND DES AKTUELLEN SFIRALARMS 
220 HZ = Hö + I + 1: REM RECHTER RAND 
230 Vi = YO - Ji REM UBERER RAND 
240 YW2= Word + 1: REM UNTERER RAND 
>06 GOSUR TOO 
„10 HLIN HL,A2 AT WI 
au0  GOSUR F00 
aaO WLIN WI + 1,WY2 AT H2 
aob GOESUR TOO 
410 HLIN HZ = 1,H1 AT WE 
so GOSUR TOO 
450 YLIN WE - 1,WI + LAT HI 
A705 NEXT 
820 END 


STE: 

OT: REM 4 SAcCHLE FARBE FÜER NAECHSTES SEGMENT,DANN ZEITVERZDEGERUNGKX 
SFT: 

Foo COLOR= 1 


10 FOR Z=1 TO Fr NEXT 
F7O RETURN 
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Speichern Sie dieses Programm als SPIRALE. 


Wir können die Zeichengeschwindigkeit verlangsamen, um das Entstehen der 
Spirale besser beobachten zu können. Die Zeitverzögerung wird in Zeile 150 
verändert: 


150 P = 200 
Frage 8: Wie muß SPIRALE geändert werden, damit jeder Spiralarm in 
einer anderen Farbe gezeichnet wird? 


Speichern Sie das Programm mit dieser Änderung als SPIRALE1. 
Hier ist eine weitere Variation von SPIRALE1. Sie bewirkt, daß die Spirale 
sich schließt und anschließend wieder öffnet: 


10 REM ..„.„SFIRALEZ-SPIRÄALEI... 


11: 

170 FRINT : FRINT "DRUECHEE ESC ZUM BEENDEN DER GRAFIK.."; 
Ss00  COLOR= 0: FOR J=0 TON 

si0 Hl = HO - J 

20 H2 = Ho + J +1 

Ss0 VI = VO -J 

4) V2 = Vo +J +1 


Kol GOSUR 910 

610 VLIN VI + 1,V2- 1 ATHI 

50 GOSUR F10 

60 HLIN H1,H2 - 1 AT VZ 

ad GOSUR 910 

7160 WLIN V2,V1 + LPATHZ 

750 GOSUBR 910 

760 HLIN HZ2,H1 AT VI 

790 NEXT 

800 IF PEER 6 - 16384) © 128 THEN 200 
810 GET Z$&: IF Z$ © > CHR$ (Z7) THEN 200: REM  ESC NICHT GEDRUECKT 


Speichern Sie das Programm als SPIRALE2. Schauen Sie, was das Programm 
auf dem Bildschirm bewirkt. 
Mit folgender Änderung von SPIRALE2 wird die Größe der Spirale redu- 
ziert. Außerdem kann der Mittelpunkt der Spirale zu anderen Stellen des 
Bildschirms bewegt werden. 


10 REM „.„.SFIRALES-SFIRÄLEZ. . . 


10 


12 


130 VO 
140 N=4 


Speichern Sie dieses Programm als SPIRALE3. 

Wir wollen nun zwei Spiralen darstellen, die sich gleichzeitig öffnen und 
schließen. Dazu muß das folgende Programm zu SPIRALE3 hinzugefügt wer- 
den. (Dies ist zwar eine langwierige Arbeit, ergibt aber einen sehr wirkungs- 
vollen Effekt.) 


26 


10 REM „ZWEI SPIRALEN-SFIRALER. .. 


11: 

122 HC = 29: REM ABSTAND ZU SFIRALE 2 
132 VC = VO 

212 HA = HC - J 

ZZEHRBR=SHE + I + 1 

232 VA=VCE- U 

Z4ZVWRBR=SVCE+JI +1 


312 HLIN HA,HR AT VA 

362 VLIN VA + 1,VR AT HR 

412 HLINHB - 1,HA AT VER 

462 VLINVRB - 1,VA+ 1 ATHA 


Si2 HA = HC - J 
ZZEHR=SHE+I HA 
32 VA=VC-J 
S4ZVBR=SVE+J+1l 


612 VLINVA + 1,VR - LAT HA 
662 HLIN HA,HR - 1 AT VR 

712 WLIN VR,VA +1 AT HR 

762 HLIN HB,HA AT VA 


Speichern Sie das Programm unter dem Namen ZWEI SPIRALEN. 


Mit etwas Vorstellungskraft können diese Effekte als zwei Augen gesehen 
werden. Vielleicht benötigt einer unserer Leser ein dreiäugiges Monster zum 
Verschönern seines Programms! 


Kombination von Klang und Farbe 


Wir wollen nun eines der Farbprogramme zusätzlich mit Klangeffekten aus- 
statten. Das folgende Programm spielt eine auf- und absteigende Folge von 
Tönen und zeigt die Spirale, die sich entsprechend öffnet und schließt. 


Ändern Sie SPIRALE2 wie folgt: 


10 REM ...SFIRALE KLANG-SFIRALE2... 
11: 

180 WD = 10 

gGEO WU =N+1I-J 

930 GOSUR 13000 


Verbinden Sie das Programm mit KLANG EINHEIT und speichern es unter 
dem Namen SPIRALE KLANG. 

Durch eine zusätzliche Änderung erhalten wir ein Programm, das den Spieler 
völlig verblüfft. Die Töne sind dem Rhythmus der Spirale nicht mehr ganz 
angepaßt, d.h. beide beginnen und enden nicht mehr gleichzeitig. 


10 REM „LUSTIGE SFIRALE - SFIRALE KLANG... 

11: 

170 CF = 1:67 = „25 

920 WE = INT (CA 

gaOcF=CcF +Ü 

950 IFCPF = N + 2.25 THEN CZ = - „25: GOTO 940: REM ABWAERTS 


960 IFCF © 1 THEN CZ = „25: GOTO 940: REM  AUFWAERTS 
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Es bieten sich eine Reihe weiterer Experimente an. Wir können LO-RES- 
Grafikeffekte zum ORGEL-Programm hinzufügen. Zum Beispiel: Jedesmal 
wenn wir eine Note drücken, erscheint ein farbiger Punkt. Oder wir pro- 
grammieren spezielle Grafikeffekte, falls eine der Ziffern gedrückt wird. Das 
Drücken der Taste 1 könnte ein Bedecken des Bildschirms mit roter Farbe 
hervorrufen, bei Taste 2 ist die Farbe orange, usw. Wird eine weitere zufällige 
Taste gedrückt, so könnte eine Spirale erscheinen. 
Andererseits sind auch einfache Effekte denkbar, wie das bloße Wechseln 
einer zufällig bestimmten Farbe bei Betätigen der Taste 1. 

Wir sehen also, es gibt eine große Anzahl von Möglichkeiten, Klänge und 
Farbe zu kombinieren. Auf diese Weise wird der Einsatz von beiden wir- 
kungsvoller und interessanter. 


LO-RES-Grafik auf dem ganzen Bildschirm 


Jedes unserer bisherigen Programme verwendete ein vier Zeilen großes Text- 
fenster am unteren Ende des Bildschirms. Mit den folgenden beiden Pro- 
grammzeilen wird das Textfenster gelöscht. Wir erhalten acht zusätzliche 
Grafikzeilen. 


10 REM «VOLLE LO-RES GRAFIK 

il; 

100 GR s: FOEE - 16302,0: REM SETZE LO-RES GRAFIK(GANZER BILDSCHIRM) 

110 COLOR= 0: FOR Z = 40 TO 47: HLIN 0,39 AT Z: NEXT : REM LOESCHE DIE 
8 UNTERSTEN ZEILEN 


Zusammenfassung von Kapitel 2 


Dieses Kapitel stellte die LO-RES-Grafikbefehle vor und demonstrierte einige 
einfache Anwendungen. Die Programmme WASCHEN, RAND und SPIRALE 
sind für eigene Programme des Lesers besonders nützlich. 
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Lösungen zu Kapitel 2 


Frage l: 500 COLOR =11 
Frage 2: Folgende Zeilen sind zu dem FARBPUNKTE-Programm hinzuzufügen: 





10 REM ...GELBE STERNE-FARBFUNETE... 
il: 

400 V= INT (Z0 X RND (1) 

500  COLOR= 13 

700 P = 1000 


Frage 3: Die Farbe wird zu violett bestimmt. Die H- und V-Koordinate werden so be- 
stimmt, daß sie zwischen 15 und 24 variieren. 





10 REM ...„VIOLETTES RECHTECHE-FARBFUNETE. . . 


INT (10% RND (12) + 15 
400 V= INT (10 X RND (1) +15 
00 COLOR= 5 
700 F = 1000 


ud 
= 
ut 
ZI 
IH 


Frage 4 500 COLOR = 6 
5SIOIFRND(1) .5 THEN CLOLOR = 9 
(Die Zahl .5 gibt jeder Farbe eine Chance von 50 %.) 


Frage 5: 500 COLOR = 6 
0 510 IF RND(1l) .25 THEN COLOR = 9 
(Durch die Zahl .25 erhält die Farbe orange nur eine Chance von 25 %.) 
Frage6: 6002=3 
Frage 7: 6202=2 
630 GOSUB 900 
Frage 8: 900 COLOR = INT(16*RND(1)) 
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Kapitel 3 
Bilder in LO-RES-Grafik 


Dieses Kapitel behandelt speziell das Erstellen von Bildern und Symbolen in 
LO-RES-Grafik. Die geschaffenen Bilder können gespeichert und in späteren 
Programmen wiederverwendet werden. Wir werden einige Bilder vorstellen 
und zeigen, wie sie zu gebrauchen sind. Anschließend demonstrieren wir, wie 
Bilder hergestellt, verändert und gespeichert werden. Zu guter Letzt zeigen 
wir Programme, die verschiedene Bilder miteinander verbinden und verän- 
dern können. Der Grundbaustein eines Bildes ist der im letzten Kapitel ein- 
geführte Farbpunkt. Alle Bilder in LO-RES-Grafik sind aus diesen viereckigen 
Farbpunkten zusammengesetzt. Ihre Qualität entspricht deshalb eher der von 
Kinderzeichnungen oder der von Bildern, die mit Kreuzstichen gestickt wur- 
den. Besonders Kinder finden Bilder in LO-RES-Grafik sehr reizvoll. 


BILD EINHEIT 


Das folgende Programm BILD EINHEIT gibt uns die Möglichkeit, Bilder auf 
dem Fernsehschirm darzustellen. Wir bestimmen lediglich ein Bild, seine Po- 
sition und Farbe; das Programm erledigt die ganze Arbeit für uns. Um die 
Benutzung des Programms anfangs etwas zu erleichtern, haben wir die Buch- 
staben des Alphabets und die Zahlen 1 bis 9 bereits in das Programm aufge- 
nommen. Später werden wir zeigen, wie zusätzliche Bilder hergestellt, ge- 
speichert und auf dem Monitor dargestellt werden. Wie in dem folgenden 
Listing leicht zu erkennen ist, hat das Setzen von Leerstellen entscheidenden 
Einfluß auf das Aussehen der Buchstaben und Zahlen. Beim Eintippen des 
Programms ist deshalb besonders für den ‚Bildteil‘ große Aufmerksamkeit 
erforderlich, damit die Wiedergabe der Zeichen richtig erfolgt. 
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10 REM «..:BILD EINHEIT-NEXTDATA EINHEIT... 
il: 

12 REM RILD UNTERFROGRAMME + RILD BIRLIOTHEE 
13 3 
14981 
14982 
14983 REM * DRUCEE RILD IN LOW-RES X 

14984 REM BEGINN: XH H-FOS DER OBEREN LINKEN ECKE 


14985 REM XV V-FOS 

14986 REM XA HORIZONTALE BREITE 

14997 REM {KR VERTIKALE HOEHE 

14988 REM LESE DATA-ANWEISUNGEN FUER ZEICHEN 
14989 REM XCE) WAEHLT DIE FARBEN 

14990 REM GRAFIEFORMAT WIRD GEWAEHLT 

149971 REM AUSGANG: Z% 0 BILD IST FASSEND 

14992 REM 1 FEHLER-BILD NICHT FASSEND 
14999 : 


15000 IF XH + XA > AO OR XV + XR > 48 THEN ZA = 1: RETURN : REM FEHLER - BIL 
D NICHT PASSEND 

15010 Z1 = XV: REM ERSTE V-FOS 

15020 REM INITIALISTERUNG UNNDETIG- ERSTE ANGABE LEBER XC0O BEWIRKT "DIM XC 
110)" 


15030  READ Z$: IF Z$ = "-1" THEN Z% = 0: RETURN : REM UEBERFRÜEFE OR DURCHG 
EFUEHRT 

15040 FOR Z = 1 TO LEN (Z$): REM  DRUCHKE JEDES DER 1-7 ZEICHEN 

15050 ZA = ASC ( MID$ (Z$,2,1)) - 48 

15060 IF ZAF =1 AND 7A 2 = 9 THEN COLOR= XC(ZW: FLOTXH + Z - 1,21: REM 


DRUCKE FARBFUNKT 
15070 NEXT 
15080 Z1 = Zi + 1:3 REM NAECHSTE V-FOS 
15090  GOTD 15030 
15092 : 
15093 REM * LESE ZEICHEN X 
15094 REM EINGANG: Z ZEICHEN # 
15095 REM AUSGANG: XA HORTZUNTALE BREITE 


15096 REM {RB VERTIKALE HOEHE 
15097 REM SETZE DATA-ZEIGER AUF RILDANFANG 
15099 : 


15100 Z = 20000 + 100 % Z: GOSUR 19000: REM SETZE DATA-ZEIGER 

15110 READ XA,XB: REM DIE ERSTEN BEIDEN DATEN SIND BREITE UND HODEHE 
15120 RETURN 

15191 : 

15192 REM %* DRUCKE EIN RILD % 

15193 REM EINGANG: 7 RILD # 


15194 REM XH H-FOS VON ULHC 

15195 REM XV  V-FOS 

15196 REM FARBEN WERDEN MIT XCU GEWAEHLT 
15197 REM AUSGANG: 27% 0 BILD IST FASSEND 

15198 REM 1 FEHLER-RILD NICHT FASSEND 
15199 : 


15200  GOSUB 15100: REM SETZE DATA-ZEIGER 
15210 GOTO 15000: REM  DRUCKE RILD 

15292 ; 

15293 REM  % ZENTRIERE ZEICHENFOLGE % 
15294 REM EINGANG: X$ TEXT 


15295 REM XV V-FOS VON ULHC 

15296 REM FARBEN WERDEN IN XC0) GEWAEHLT 
15297 REM AUSGANG: 7% 0 BILD PASSEND 

15298 REM 1 FEHLER-RILD NICHT FASSEND 
152997 ; 


15300 IF LEN (X$) = O THEN RETURN : REM  LEERER TEXT 
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15210 IF XS = 0 THEN XS = 1: REM INITIALISIERE RAUM ZWISCHEN DEN EILDERN 

15320 Xi = - XS: REM INITIALISIERE LOW-RES BREITE 

153530 FOR X = 1 7T0 LEN (X) 

15340 2 = ASC ( MID$ (X$,%,19): GOSUR 15100: REM RILD #5 157 IDENTISCH MIT 
ASCII #5 

15350 X1 = X1l + XA + XS: REM NEUE LOW-RES BREITE 

132360 NEXT 

15270 IF X1 >40 + X5 THEN ZA = 1: RETURN : REM FEHLER — RILD NICHT FASSEND 

15380 XH = 17 - INT (1 7 23: REM  DRUCEE AM LINKEN BILDRAND 

15370 5 | 

153071 REM 4 DRÜCHKE ZEICHENFOLGE % 

153392 REM EINGANG: X$ TEXT 


13572 REM XH H-FOS VON UCHE 

13294 REM XV V-FOS 

15375 REM FARBEN WERDEN MIT XCi} GEWAEHLT 
1523976 REM AUSGANG: XH NEU BERECHNET 

153577 REM !A © BILD FASSEND 

153298 REM 1 FEHLER-EILD NICHT FASSEND 


153399 : 

15400 IF LEN {X$) = OÖ THEN RETURN : FEM LIERER TERT 

15410 IF XS = 0 THEN XS = 1: REM INITIALISIERE RAUM ZWISCHEN DEN BILDERN 
15420 FOR X = 1T0 LEN (X# 

15430 2 = ASC ( MIDE {X$,X,13): GOSUR 1200: REM BRUCHKE EIN BILD AUS 
15440 XH = XH + XA + XS: RE BERECHNE NEUE H-FOS 

15450 NEXT 

154650 RETURN 

153492 : 

15493 REM Y LOESCHE 40%X40 BILDSCHIRM MIT EINER FARBE 

15474 REM EINGANG: FÄARBENSATZ 

15499 ;: 

wsü0 Z = 39: REM HÜEHE 

15510 FOR Z1 = 0 TO Ze: HLIN 0,37 AT Zi: NEXT 

153520 RETURN 

z24800 DATA 5,7: REM 0 

24810 DATA " 111" 

24920 DATA "1 1" 
24830 DATA "1 11" 

24540 DATA "1 1 1" 

24850 DATA "il 1" 

24850 DATA "1 1" 

24870 DATA " 111" 

24830 DATA  "-1" 

24900 DATA 5,7: REM 1 

2410 DATA " 1" 
24720 DATA " 11" 
24930 DATA "1" 
24940 DATA "1" 
EATSO DATA "1" 
24960 DATA " 1" 
24970 DATA " 111" 
24780 DATA "-1" 
25000 DATA 5,7: REM 
25010 DATA " 111" 
25020 DATA "1 1" 
SS030 DATA  " 1" 
25040 DATA " 1" 
25050 DATA " 1" 
25060 DATA "1" 
25070 DATA "111" 
25080 DATA "1" 
25100 DATA 5,7: REM 3 
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271860 
27170 
27180 
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27210 
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28520 DATA "1 1" 28820 DATA "1 1" 


28520 DATA "1 1" 28830 DATA "1 1" 
28540 DATA "1 1" 28840 DATA "1" 
28550 DATA "1 1" 28920 DATA "1 1° 
28560 DATA "1 1" zu850 DATA "1 1" 
28570 DATA" 111" 28870 DATA "1 1" 
28580 DATA "-1" 28880 DATA "1" 
z28Aa00 DATA 5,7: REM V 28900 DATA 5,7: REM Y 
28&10 DATA "1 I" zer10 DATA "1 1" 
28420 DATA "1 1" 23720 DATA "1 1" 
28630 DATA "1 1" 2ue30 DATA" 1 1" 
z8530 DATA "1 1" 2BEr40 DATA N 1" 
28430 DAT "i 1" zarac DATA" 1" 
2350 DATA "11" ara DATA "1" 
28570 DATA "1" 2870 DATA" 1" 
28890 DATA "1" 28730 DATA "1" 
28700 DATA 7,7: REM M 2r30c DATA 5,7: REM 7 
ze710 DATA "1 1" 22010 DATA "1" 
28720 DATA "1 1" zrüzo DATA "ill" 
28730 DATA "1 1" 2020 DATA" 1" 
298740 DATA "1 1 1" rad DATA" IL" 
287530 DATA "ı 111" 2r0oSo DATA" 1" 
287580 DATA "11 11" 27a DATA" 1" 
28770 DATA "1 Fig 26070 DATA "2" 
23780 DATA "-1" 2080 DATA "ill" 
28800 DATA 5,7: REM X 2070 DATA "1" 


28310 DATA "1 wi" 


Geben Sie dieses Programm ein und speichern Sie es als BILD EINHEIT. 


Darstellen von Buchstaben und Zahlen 


Für die Wiedergabe eines LO-RES-Bildes sind drei Schritte erforderlich: 


1. Angabe eines bestimmten Bildes 
2. Festlegung der Bildschirmposition 
3. Wahl einer Farbe. 


Mit dem Programm BILD EINHEIT ist es sehr einfach, Zahlen oder Buch- 
staben an verschiedenen Stellen des Bildschirms darzustellen. Wir geben ein- 
fach den Inhalt einer Textvariablen (X$) an, bestimmen den Abstand zum 
oberen Bildschirmrand (XV) und entscheiden, ob der Text in der Zeilen- 
mitte oder am Rand stehen soll. Natürlich wählen wir auch eine Farbe 
(XC(1)). Soll der Text nicht in der Zeilenmitte stehen, muß zusätzlich ange- 
geben werden, wo der Text beginnt. Dazu wird die Variable XH bestimmt, 
die den Abstand vom linken Bildschirmrand angibt. 


Im nächsten Abschnitt erläutern wir, wie die Buchstaben farbig dargestellt 
werden. In den DATA-Anweisungen unseres Programms taucht sehr oft die 
‘1° auf. Wir haben alle Zahlen und Buchstaben so entworfen, daß sie nur in 
einer Farbe dargestellt werden können. Die Farbe haben wir aber in diesem 
Programm nicht festgelegt. Wenn wir nun eines dieser Zeichen benutzen, 
bestimmen wir die Farbe, indem wir eine der sechzehn APPLE-LO-RES- 
Farben den ‘Einsen‘ ın den DATA-Anweisungen zuordnen. Wenn wir zum 
Beispiel die Farbe hellgrün möchten, geben wir den Befehl XC(1) = 12 ein. 
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Damit wird die APPLE-Farbe Nr. 12 den ‘Einsen‘ in den DATA-Anweisun- 
gen zugeordnet. Wollen wir die Farbe rosa haben, lautet der neue Befehl 
XC(1) = 11. Später werden wir zeigen, wie Bilder entworfen werden, die aus 
mehr als einer Farbe bestehen. 


Wir zeigen nun einige Möglichkeiten, wie mit dem Programm BILD EINHEIT 
Wörter dargestellt werden. 


Fügen Sie folgende Zeilen zu BILD EINHEIT hinzu und starten Sie das Pro- 
gramm: 


100 GR : HOME 

110 X$ = KATZE“ 
120 XV = 10 

130 XC(1)=3 

140 GOSUB 15300 
999 END 


Der Text wird in der Farbe grün gedruckt (Zeile 130), und das obere Ende 
der Buchstaben ist ın Reihe 10 (Zeile 120). Das Wort “KATZE“ steht in der 
Mitte des Bildschirms. Dies ist der Fall, wenn das Unterprogramm mit Zeile 
15300 aufgerufen wird. 


Fügen Sie die folgenden Zeilen hinzu und starten Sıe das Programm erneut: 


145 : 

150 XH = 5 
160 XV = 20 
170 XC(1)=8 


180 GOSUB 15400. 


Diese zusätzlichen Zeilen haben einige Variablen verändert. Da X$ nicht ge- 
ändert wurde, wiederholt sıch die Ausgabe des Wortes “KATZE“. Versuchen 
Sıe das Programm so abzuändern, daß Ihr Name in mehreren Farben und an 
verschiedenen Stellen auf dem Bildschirm gedruckt wird. Was geschieht, 
wenn die Worte sich überlappen? 

Es ist wichtig, daß alle Variablen zur Positionierung eines Textes auf dem 
Bildschirm spezifiziert sind. Erfolgt der Eintritt in das Unterprogramm in 
Zeile 15300, wird der Text in die Mitte der angegebenen Zeile gerückt. 
Rufen wır das Unterprogramm erst mit Zeile 15400 auf, wird der Text nicht 
automatisch ın die Zeilenmitte plaziert. In diesem Fall müssen wir angeben, 
in welcher Spalte der. Text beginnen soll (siehe Zeile 150). 


Frage 1: Was wird auf dem Bildschirm dargestellt, wenn wir BILD EIN- 
HEIT mit dem folgenden Programm verbinden? 


100 GR : HOME 
110 X$ = "KATZE“ 
120 XV = 20 

130 XC(1) = 3 

140 GOSUB 15300 
150 XC(1) = 13 

160 GOSUB 15300 
999 END 





Frage 2: Was geschieht, wenn die Zeile 
145 GR:HOME 
zu diesem Programm hinzugefügt wird? 


Als hübsche Zugabe enthält BILD EINHEIT ein Unterprogramm zum Löschen 
des Bildschirms mit einer Farbe nach Wahl. 


Fügen Sie die folgenden Zeilen zum jetzigen Programm hinzu, und starten 
Sie es erneut: 


102 COLOR = 5 
104 GOSUB 15500 


Hin und wieder ist es wünschenswert, die Variable X$ vom Tastenfeld eın- 
zulesen anstatt sie im Programmlisting festzusetzen. Wir wollen zum Bei- 
spiel nach einem Namen fragen und diesen anschließend in großen Lettern 
darstellen. Die Buchstaben sind sehr groß; deshalb kann es sein, daß manche 
Namen nicht auf den Bildschirmbereich passen. Ein Unterprogramm von 
BILD EINHEIT überprüft die Länge der Namen. Auf diese Weise kann ver- 
mieden werden, daß ein Name am Ende abgeschnitten wird. 


Beim Eintritt ins Unterprogramm in Zeile 15300 (Plazierung in der Bild- 
schirmmitte), prüft das Unterprogramm die Länge des Textes. Dieser wird 
nur dann ausgedruckt, wenn er in den Bildschirmbereich hineinpaßt. Falls 
dies nicht zutrifft, wird der Text nicht ausgedruckt. Wenn wir aber erst ın 
Zeile 15400 ins Unterprogramm eintreten, wird der Text am Ende abge- 
schnitten, wenn er zu lang ıst. 

Vor dem Verlassen des Unterprogramms wird eine Variable Z% bestimmt. 
Diese Variable zeigt an, ob der Text in den Bildschirmbereich hineinpaßt. 
Ist Z% gleich O, dann ist der Text passend und wird ausgedruckt. Z% gleich 1 
bedeutet, daß der Text zu lang ist und nicht auf dem Bildschirm erscheint 
(bei Eintritt in Zeile 15300). Bei Eintritt in Zeile 15400 werden nur die- 
jenigen Buchstaben erscheinen, die innerhalb des Bildschirmbereichs liegen. 
Das folgende Programm überprüft die Variable Z%. Fügen Sıe folgende Zei- 
len zu BILD EINHEIT hinzu: 


100 GR: HOME 

110 PRINT “GEBEN SIE BITTE IHREN RUFNAMEN EIN!“; 
120 INPUT X$ 

130 XV = 10: XC(1)=3 

140 GOSUB 15300 

150 IF Z% = 0 GOTO 200 

160 PRINT “DAS WAREN ZU VIELE BUCHSTABEN!“ 

170 PRINT “BENUTZE BITTE WENIGER BUCHSTABEN.“ 
180 GOTO 110 

200 ... Fortsetzung des Programms ... 





Starten Sıe dieses Programm. 


37 


Es bleibt zu bemerken, daß wir ein klein wenig auf das Erscheinen eines je- 
den Buchstabens warten müssen. Das Ausdrucken dieser Art von Buchstaben 
dauert länger als bei gewöhnlichen Textbuchstaben (wie z.B. im Programm- 
listing). Die Buchstaben und Zahlen im Textformat werden mittels der 
internen Logik des Rechners sehr schnell erstellt. Dagegen müssen die Zeı- 
chen, die wir hier vorgestellt haben, Schritt für Schritt in einem BASIC-Pro- 
gramm aufgebaut werden. Dies dauert natürlich etwas länger. 


Vorschläge für Spiele mit Buchstaben 


Wir wollen nun zwei Spiele vorschlagen, die sich besonders eignen, die Fähig- 
keiten von Anfängern zu schulen. Sie helfen, das Erkennen von Zahlen zu 
lernen, und machen Leseanfänger besser mit der Tastatur des Computers 
vertraut. 


Im ersten Spiel tippt der Spieler einen Buchstaben. Das Programm druckt 
dieses Zeichen mit der LO-RES-Grafik auf dem Bildschirm aus. Ein Fortge- 
schrittener kann dazu die Namen der Buchstaben nennen, wenn diese auf 
dem Monitor erscheinen. Auf diese Weise betreut er während des Spiels den 
beginnenden Leser und beschleunigt den Lernerfolg. 

Beim zweiten Spiel wird zuerst eine Zahl ausgedruckt. Der Spieler wird an- 
gewiesen, die entsprechende Taste zu drücken. Dabei sollten alle anderen 
Tasten vom Programm ignoriert werden, um unnötige Verwirrung zu ver- 
meiden. Wird die richtige Taste gedrückt, gibt der Rechner einen Ton von 
sıch, und die nächste Zahl erscheint. 


Bemerkungen zur Zeilennumerierung 


Die DATA-Anweisungen in BILD EINHEIT, die unsere Buchstaben und Zah- 
len enthalten, beginnen in Zeile 24800. Beim Entwerfen der Zeichen und Zu- 
ordnen der entsprechenden Zeilennummern benutzten wir folgende Regeln. 
Jedes Zeichen beginnt bei einer Zeilennummer, die ein Vielfaches von 100 
ist. Hier steht eine DATA-Anweisung für die Länge und Höhe des Zeichens, 
sowie eine REM-Anweisung, die uns angibt, um welches Zeichen es sich 
handelt. Jedes Zeichen endet mit : DATA “- 1“. 


Durch diese spezielle Form der Zeilennumerierung erhalten wir einen sehr 
einfachen Zugang zu den einzelnen Zeichen. Deshalb ist es wichtig, dies gut 
zu verstehen. Zuerst subtrahieren wir von der Zeilennummer, mit der ein 
Zeichen beginnt, die Zahl 20000. Das Ergebnis ist eine Zahl, die genau das 
Hundertfache des ASCII-Wertes des betreffenden Zeichens beträgt. Zum Bei- 
spiel: der Buchstabe A beginnt in Zeile 26500. Subtrahieren wir 20000 von 
dieser Zahl, erhalten wir 6500. Dies ist genau das Hundertfache des ASCII- 
Wertes für A, denn dieser beträgt 65. Der ASCII-Wert für B ist 66. Deshalb 
beginnen die DATA-Anweisungen für den Buchstaben B in Zeile 26600. 

Mit unserer speziellen Zeilennumerierung können wir Zeichen spezifizieren, 
indem wir die durch den ASCII-Code zugehörige Kennzahl benutzen. Die 
Kennzahl des Buchstabens A ist zum Beispiel 65. Das bedeutet aber, daß wir 
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ebenso alle anderen Zeichen der Tastatur herstellen können. Später erfolgt 
der Zugriff auf diese Zeichen durch Verwendung ihrer ASCII-Kennzahl. 
Ergänzend zu den Großbuchstaben, die wir im Programm zur Verfügung 
stellen, kann der Leser auch Kleinbuchstaben entwerfen. Wir schlagen vor, 
hier mit Bild Nr. 97 zu beginnen (Zeile 29700). Die Kennzahl jedes Klein- 
buchstabens ist dann gleich der Kennzahl des zugehörigen Großbuchstabens 
plus 32. Dies entspricht somit dem Standart-ASCII-Code. Die Wahl, ob 
Klein- oder Großbuchstabe erscheinen soll, kann durch eine Textvariable 
belegt werden. 

Fügen Sie das folgende Unterprogramm zu BILD EINHEIT hinzu. Dieses 
Unterprogramm wandelt die ASCII-Zahl des Großbuchstabens in die zuge- 
hörige Kennzahl des Kleinbuchstabens um. 


15591: 

15592 REM *UMWANDLUNG VON GROSS- IN KLEINBUCHSTABEN* 
15593 REM EINTRITT: Z$ GROSSBUCHSTABE 

15594 REM AUSTRITT: Z1$ KLEINBUCHSTABE 

15599 : 

15600 Z1$ = * * 

15610 IF LEN (Z$) = 0 THEN RETURN: REM KEIN ZEICHEN 
15620 FOR Z=1TOLEN(Z$) 

15630 Z1$ = Z1$ + CHR$(ASC(MID$(Z$, Z, 1)) + 32) 

15640 NEXT 

15650 RETURN 


Nachdem wir die Kleinbuchstaben zu BILD EINHEIT hinzugefügt haben, 
können wir zum Beispiel X$ = ““Katze‘‘ wie folgt schreiben: 


500 Z$ = "ATZE: GOSUB 15600 
510 X$= "K" +Z1$ 


Unsere Form der Zeilennumerierung bietet Platz für 255 Zeichen (von Zeile 
20100 bis Zeile 45599). Die Nummern 32 bis 127 bleiben reserviert für die 
Zeichen des ASCII-Codes. Wir haben also genügend Raum für weitere Zei- 
chen, die wir selbst entwerfen können. 


Anlegen einer Zeichen-Bibliothek 


Vielleicht möchte der Leser noch viele andere Zeichen zur Verfügung haben. 
Zu diesem Zweck empfehlen wir, mit dem Erstellen einer Zeichen-Bibliothek 
zu beginnen. Die Zeichen 1 bis 31 und 128 bıs 255 können mit Hilfe des Pro- 
gramms BILD EINHEIT verwendet werden. Wenn wir ein Programm fertig- 
gestellt haben, verbinden wir es einfach mit BILD EINHEIT. Damit stehen 
uns alle Zeichen mit einem Male zur Verfügung. Um Speicherplatz zu sparen, 
können die nicht benötigten Zeichen nachträglich gelöscht werden. Das An- 
legen einer Bibliothek in dieser Form erleichtert die wiederholte Benutzung 
von Zeichen. Es erspart uns den Zeitaufwand, die Zeichen jedesmal neu her- 
stellen zu müssen. 
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Entwerfen und Verbinden neuer Bilder 


Der einfachste Weg zum Entwerfen neuer Bilder besteht darin, diese auf 
karıertem Papier aufzuzeichnen. Anschließend wird das Bild durch das Ein- 
tippen von Zahlen in die DATA-Anweisungen übertragen. Da die Farbpunkte 
auf dem Bildschirm nicht genau quadratisch sind, wird das Bild auf dem 
Monitor nicht exakt die gleiche Form haben wie auf der Papiervorlage. In 
Abbildung 1 ist ein Zwei-Farben-Baum auf kariertem Papier dargestellt. 


Verändern Sie BILD EINHEIT wie folgt: 
10 REM ..ZWEI FARBEN BAUM-BILD EINHEIT.: 
12 REM BILD UNTERFROGRAMME + BILD BIBLIOTHEK 


100 GR : HOME 
110 X$ = CHR$ (1) 
120 XC(1) =4 

130 XC(2) =8 

140 GOSUB 15300 


997 END 

20100 DATA 21,38: REM’ ZWEI-FARBEN-RBAUM 
20102 DATA " 1111111 1111111" 

20104 DATA " A11111111111111" 


20106 DATA "iilııııadaadadaıalan" 

20108 DATA "111ılıııı1l11ı1111111" 

z0110 DATA "ililıdlıdaadalaaaaaaaad" 
z0112 DATA "ildaadaaaaaaaaalaı1ııı" 
20114 DATA "ilı1ııııı1ıı1111111111" 
z011& DATA "Alaıaıaaaadalal1 all" 
20118 DATA "ıltııdaıaadaaaaadaadaı" 
20120 DATA "1111111111111 1111 1111" 
20122 DATA "illıdıdıdaaaaaadadaaı" 
20124 DATA "Ardıdaaaaaaadaaaadaan" 
20126 DATA "il1ıllııııı1111111 1111" 
20128 DATA "1lalııı 221111111111" 


20130 DATA " Alllı zZ2 11111111" 
20132 DATA " 11111 22 11111" 
20134 DATA " 1111 22 1" 
20136 DATA " 22" 

20138 DATA " 22" 

20140 DATA " 22" 

20142 DATA " zE" 

20144 DATA " 22" 

20146 DATA " 22" 

20148 DATA " 22" 

20150 DATA " ze" 

20152 DATA " 22" 

20154 DATA " 22" 

20156 DATA " 22" 

26158 DATA " zE" 

20160 DATA " 22" 

20162 DATA " z2" 

20164 DATA " za" 

20166 DATA " ze" 

20168 DATA " 22" 

20170 DATA " za" 

20172 DATA " 22" 

20174 DATA " za" 

20176 DATA " 22222222" 


20178 DATA "-1" 





Abb. 1 
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Die Zeilen 20100 bis 20178 entsprechen dem grafischen Bild. Speichern Sıe 
das Programm als ZWEI-FARBEN-BAUM. Da für den Zwei-Farben-Baum 
kein entsprechendes ASCII-Zeichen existiert, muß der Zugriff auf dieses 
Bild auf andere Weise erfolgen (siehe Zeile 110). Anstatt in der Textvarıiablen 
X$ die entsprechenden Zeichen anzugeben, wird die Kennziffer des Bildes 
benutzt. Um zum Beispiel das Bild Nr. 130 zu spezifizieren, benutzen wir 
den Befehl: X$ = CHR$ (130). Mit dieser Methode können wir Bilder auf 
dem Bildschirm genau so positionieren wie Buchstaben und Zahlen. Wir 
ordnen die Bildnummer mit CHR$ der Variablen X$ zu. Dann erfolgt der 
Eintritt in das Unterprogramm BILD EINHEIT in Zeile 15300 oder 15400. 
Mit X$ können auch mehrere Bilder in einer Reihe angeordnet werden. 
Eine solche Zuordnung hat die Form: 


X$ = CHR$ (130) + CHR$(140). 
Die Zahlen 130 und 140 geben die Nummern der Bilder an. 
Zum Schluß noch eine Bemerkung zum freien Raum zwischen zwei Bildern. 
Das Programm BILD EINHEIT setzt eine Leerstelle zwischen zwei aufeinan- 


derfolgende Bilder. Mit XS kann die Anzahl der Leerstellen vor dem Eın- 
tritt in das Unterprogramm verändert werden. 


Mehrmalige Benutzung eines Bildes mit verschiedenen Farben 


Beim Entwerfen des Bildes haben wir jedem Kästchen auf dem Zeichen- 
papier eine Zahl zugeordnet, die eine bestimmte Farbe repräsentiert. Karos, 
die keine Zahl enthalten, werden nicht farbig ausgefüllt. Bei der späteren 
Verwendung im Programm wird jeder Zahl eine APPLE-Farbe zugeordnet. 
Das geschieht auf die gleiche Art wie mit der Zahl 1 bei den Buchstaben. 

Der Zwei-Farben-Baum hat einen braunen Stamm und dunkelgrünes Laub, 
wenn XC(1)=4 und XC(2) =8 gilt. Ein wenig später können wir dasselbe 
Bild noch einmal benutzen. Diesmal haben wir einen weißen Stamm mit 
gelben Blättern, indem wir XC(1) = 12 und XC(2) = 15 setzen. Oder wir er- 
halten einen roten Stamm mit rotem Laubwerk, wenn wir XC(1)=1 und 
XC(2) = 1 schreiben. 

Durch die Verwendung dieser Farbnumerierungsmethode können wir Bilder 
entwerfen, ohne direkt entscheiden zu müssen, welche Farbe wir letztendlich 
verwenden wollen. 

Wir können mehrere Farbkombinationen ausprobieren, indem wir einfach 
verschiedene Farbzuordnungen treffen. Diese Flexibilität ist besonders vor- 
teilhaft, wenn wir Bilder entwerfen wollen, wie zum Beispiel den Baum in 
Abbildung 2. Für dieses Bild benutzen wir drei Zahlen. Indem wir diesen 
Zahlen die APPLE-Farben in unterschiedlicher Art und Weise zuordnen, er- 
halten wir recht abwechslungsreiche Bilder. 
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Abb. 2 


10 REM ...DREI FARBEN BAUM-BILD EINHEIT... 


120 XV =0 

1350 X) = 1 
140 XC(2) = 2 
150 XC(9) = 3 


160 GOSUR 15300 
170 PRINT : FRINT "DRUECKE EINE TASTE,DANN GEHT’S WEITER... " 


ro 
2 
a 
> 
m 
8) 

non 
mn 


240 XC(3) 

250 GOSUR 15300 

260 PRINT : PRINT "DRUECKE EINE TASTE,DANN GEHT’S WEITER... " 
270 GET Z$ 

300 GR : HOME 

310 XV = 
320 XCt1) = 
330 XC(2) = 
340 XC(2) = 
350 GOSUR 15200 
360 FRINT : PRINT "DRUECKE EINE TASTE,DANN GEHT’S WEITER.. "; 
370 GET Z$ 
400 6R : HOME 
410 XV = 
420 XC(1) = 
430 XC(2) 
430 XC(3) = 
450  GOSUB 15200 

460 PRINT : FRINT "DRUECKE EINE TASTE,DANN GEHT'S WEITER... " 
470 GET 2% | 

S00 G6R : HOME 

S10 XV = 
=70 XC(1) 
330 XC(2) = 0 

540 XC(5) = 8 

550 GOSUR 15300 

399 END 

20200 DATA 22,39: REM  DREI-FARBEN-BAUM 
20202 DATA " dilillılddıltldil" 

20204 DATA " Azz21lı1lll1llldlld" 

20206 DATA "1122ıllllillldlzazıli" 

20208 DATA "illltııdllıldlazzzılidt" 

20210 DATA "illllzzaııadlldlaaladldit" 
20212 DATA "i1zılllllzzaıladadalatldi" 
20214 DATA "1z1131llllldllaaaazzıld" 
20216 DATA "133323221111111223111 111" 
20218 DATA "1111S222313111113111211" 
20220 DATA "121131111F1112113135111" 
20222 DATA " 221311111F122213131111" 

20224 DATA " 1323111211211113322" 

20226 DATA " 111F3112221313333 1" 

20228 DATA " 1113311111332" 


0.00 


u 
ner cn en 


Q 


20230 DATA " FFL1LIER" 
20232 DATA " RARFEE" 
20224 DATA " aa" 
20236 DATA " 5" 
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1. 


an 


20238 DATA " a" 


20240 DATA" Kt 
z02Z42 DATA " Ra 
20244 DATA " Ray 
20246 DATA " Er 
20248 DATA " Kr 
20250 DATA  " BL 
Z02SZ DATA " ERL 
20254 DATA" 33" 
20256 DATA" ERS 
20238 DATA" Sn 
20260 DATA " Kr 
20262 DATA " 33" 
z0264 DATA " ERS 
Z0E66 DATA " Er 
20258 DATA " Err 
20270 DATA  " Er 
zZ0Z7Z DATA " ERS 
20274 DATA " Sa" 
20276 DATA " BAT 
20278 DATA " SIRIIIIIIE" 


202930 DATA  "-1" 


Speichern Sıe dieses Programm als DREI-FARBEN-BAUM. 


Wir sehen, daß das gleiche Bild je nach Art der Farbzuordnung sehr ver- 
schiedenartig aussehen kann. (Siehe die Zeilen 130 bis 150, 220 bis 240, 
320 bıs 340, 420 bis 440 und 520 bis 540). 


Als wir den Baum entworfen haben, überlegten wir, welche Bereiche ver- 
schiedene Farben haben sollten. Dann ordneten wir jedem Bereich eine Zahl 
zu. (Je mehr Zahlen benutzt werden, desto größer wird die Vielfalt bei der 
Farbgebung des Bildes.) Dann benutzten wir dieses Bild im Programm und 
ordneten jeder Zahl eine Farbe zu. (Wir können auch dieselbe Farbe mehre- 
ren Zahlen zuordnen — siehe Zeile 320 bis 340, 420 bis 440 und 520 bis 
540.) Mit dieser Methode stehen maximal neun Farben zur Verfügung. Die 
ständigen Veränderungen der Bilder werden durch aktuelle Farbfestlegun- 
gen bewirkt. Natürlich können wir das Bild zu einem späteren Zeitpunkt mit 
anderen Farben noch einmal verwenden. 


Das nächste Bild ıst komplexer und vielseitiger als die Vorhergehenden. Wir 
benutzten neun Zahlen, um die verschiedenen Teile der Figur zu bezeichnen. 
Durch die Verwendung verschiedener Farbsätze erhalten wir jeweils vier 
mögliche Arm- bzw. Beinstellungen (Abbildung 3). Den nicht benötigten 
Körperteilen muß die Farbe schwarz zugeordnet werden. 


10 REM: „».PERSON-BILD EINHEIT... 

11: 

100 C = I: REM ANZAHL DER FARBEN 

1100 FORN= 1 TOC 

120 X$ = CHR$ (D 

197 3 

198 REM * FARBE FUER N’TE PERSON IN ZEILE 500+10XN X 
199 : 

200 Z = 500 +10 X N 

210 GOSUR 19000 
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220 FOR J = 1 T09 

230 READ XC(J) 

240 NEXT 

00 GR : HOME 

310 XV=0 

>20 GOSUB 15300 

400 PRINT 

410 PRINT "DRUECKEE RETURN,DANN GEHT’S WEITER...": 
420 GET 7$ 

430 NEXT 

490 END 

497 REM %* WERTE FUER XC(1),...,XCI % 

498 REM (FARBEN FÜER N’TE FERSON IN ZEILE SOO+10O%N) 
499 : 

s10 DATA 5,0,0,5,5,0,5,0,5 

320 DATA 1,0,1,0,1,0,1,0,1 

330 DATA 0,4,4,0,4,4,0,4,0 

20300 DATA 20,39: REM PFERSCN 


20302 DATA " ya BARS 
20204 DATA " jeher Ey 
20306 DATA " So By 
205308 DATA " tee Ey 
20310 DATA " jetarher Er 
20312 DATA " ie Ey 
20314 DATA " ie 5 
20316 DATA " ZERZRGITOSOSGESEEE" 
20318 DATA " 2 11539955 4" 
20320 DATA " 2 11 55555 4" 
20322 DATA " Zı11l 59505 4" 

20324 DATA " Zi soogs 4 4" 
20326 DATA " 2 mass 4 a" 
20328 DATA " 2 sooo 444444" 
20330 DATA "ZZZiA Kite tete 

20332 DATA " 11 553955" 

20334 DATA " 11155955" 

20336 DATA " 11559935" 

20338 DATA " 7777777535335" 

20340 DATA " 777777733395" 

20342 DATA " 77 88.55" 

205344 DATA " 77 83 55" 

20346 DATA " 77 28 535" 

20348 DATA " 77 88 25" 

20350 DATA “ 77 ga 3" 

20352 DATA " 77 88 35" 

20354 DATA " 77 8 3579779777" 
20356 DATA "777 83 597799797997" 
20358 DATA "777 88 66 Fr" 
20360 DATA " 88 665 gr" 
20362 DATA " 88 44 Fr" 
20364 DATA " 89 66" 

20366 DATA " 38 46" 

20368 DATA " 83 66" 

20370 DATA " 38 46" 

20372 DATA " 38 54" 

20374 DATA " 88 44" 

205376 DATA " 828889 H6huh6" 
20378 DATA " 88989 Hhhas" 


20380 DATA "-1" 
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Benutzen Sie für die Bereiche 1, 3 und 5 dieselbe Farbe und ordnen Sie den 
Bereichen 2 und 4 die Farbe schwarz zu. Die Figur hat jetzt einen Arm an 
der Hüfte und streckt den anderen Arm in die Luft. 

Soll die Figur gerade stehen, müssen die Bereiche 5, 6 und 8 dieselbe Farbe 
erhalten. Die Bereiche 7 und 9 werden schwarz gezeichnet. 


Können Sie die Farbe so bestimmen, daß die Figur nur den linken Fuß hebt? 


Verschiedene Fernsehsysteme, verschiedene Farben 


Im letzten Kapitel spielten wir mit Farben bei der Programmierung von 
Rechtecken und Rändern. In diesem Kapitel erstellten wir Bilder. Hier wird 
der Leser sicherlich viel Wert auf die gute Darstellung der Farben legen. Die 
Farben, die wir auf dem Monitor sehen, hängen jedoch stark von dem 
speziellen Fernsehgerät ab. So kann in der Tat ein Bild ganz anders aussehen, 
wenn es auf einem anderen Fernsehgerät dargestellt wird. Die Firma APPLE 
liefert dazu eine Testkarte für Farben. Mit dieser Karte (sie befindet sich ın 
der APPLE Bedienungsanleitung) können wir sehen, wie die Farben aussehen 
sollten. 


Wir möchten dem Leser empfehlen, eigene Bilder zu entwerfen. Es macht 
sehr viel Spaß und gibt den Programmen einen individuellen Charakter. 
Große und aufwendige Bilder können innerhalb anderer Programme er- 
scheinen. Oder wir stellen ein kleines Bild her und lassen es um den Bild- 
schirm wandern. Es ist wichtig, sich zu merken, daß alle Bilder in den DATA- 
Anweisungen enthalten sind. Deshalb können nicht dieselben Zeilennum- 
mern zur Darstellung verschiedener Bilder benutzt werden. 


Zusammenfassung von Kapitel 3 


Wir haben gezeigt, wie das Programm BILD EINHEIT zur Darstellung von 
Buchstaben und Zahlen in LO-RES-Grafik benutzt wird. Außerdem haben 
wir gesehen, wie hübsche und originelle Bilder entworfen werden. Das Pro- 
gramm BILD EINHEIT ist beim Schreiben von eigenen Spielprogrammen 
sehr nützlich. An anderer Stelle in diesem Buch werden wir zeigen, wie wir 
dieses Programm in unseren Spielen eingesetzt haben. 


Lösungen zu Kapitel 3 


Frage 1: Das Wort “KATZE“ erscheint in violetter Schrift auf dem Bildschirm. An- 
schließend wird dasselbe Wort an gleicher Stelle in gelber Farbe ausgedruckt. 


Frage 2: Der Bildschirm wird gelöscht, bevor das Wort “KATZE“ in gelber Farbe aus- 
gedruckt wird. 
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Kapitel 4 
Hochauflösende Grafik 


In diesem Kapitel wollen wir etwas über die Nutzung der hochauflösenden 
Grafik des APPLE II lernen. Im Vergleich zur LO-RES-Grafik ist die hoch- 
auflösende Grafik (HI-RES) wesentlich komplizierter anzuwenden. Deshalb 
wollen wir nicht alle Einzelheiten zeigen, sondern uns auf einige wenige Din- 
ge beschränken, die das Programmieren der HI-RES-Grafik in APPLESOFT 
BASIC ohne großen Aufwand erlauben. Um die Darstellung der Bilder auf 
dem Bildschirm zu beschleunigen, benutzen viele Spielprogramme HI-RES- 
Grafik mit Unterprogrammen in Maschinensprache. Da diese nıcht in BASIC 
geschrieben sind und da Maschinensprachen über das Ziel dieses Buches hin- 
ausgehen, wollen wir hier nur so viel sagen, daß die HI-RES-Programme 
wesentlich komplizierter sind als sie auf den ersten Blick erscheinen. 

Die Konstrukteure des APPLE versuchten die Schwierigkeiten beim Pro- 
grammieren von HI-RES-Bildern in BASIC durch das Einführen von For- 
mativtabellen auszuräumen. Mittels Formativtabellen können grafische Mo- 
tive entworfen, hergestellt und wieder verändert werden. Dazu gibt es einen 
speziellen Befehlssatz. Doch leider sind auch die Formativtabellen sehr um- 
ständlich und schwierig zu handhaben. Sie sind außerdem zu kompliziert, 
um in diesem Buch näher erläutert zu werden. Auch bleibt die Darstellung 
der Grafik mit diesen Formativtabellen weiterhin langsam. Sie sind zum Beı- 
spiel nicht dazu geeignet, eine HI-RES-Karte von Europa zu erstellen. Für 
diejenigen Leser, die nähere Einzelheiten über die HI-RES-Formativtabellen 
wissen möchten, verweisen wir auf Kapitel 9 der APPLESOFT-Programmier- 
anleitung. Außerdem ist es empfehlenswert, eines der im Handel erhältlichen 
Software-Pakete für High-Resolution-Grafik zu erwerben; sie enthalten meist 
eine ausführliche Programmdokumentation. Die Benutzung eines kom- 
merziellen Programms ist viel einfacher als die Programmierung von HI-RES- 
Grafik in BASIC. Sehen Sie sich bei einigen der Software-Anbieter um und 
studieren Sie genau die Programmbeschreibungen, damit Sie die Anwendung 
der Programme gut verstehen. 
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Grundlagen der HI-RES-Grafik 


Da wir jetzt wissen, was in BASIC nicht machbar ist, zeigen wir einige leicht 
durchführbare Anwendungen. HI-RES arbeitet mit zwei Grafikseiten: Seite 1 
und Seite 2. Um Seite 1 zu benutzen, verwenden wir den Befehl HGR. Mit 
HGR2 wird der Computer angewiesen, Seite 2 zu benutzen. 

Jeder dieser Befehle löscht dıe zugehörige Seite mit schwarzer Farbe. Mit 
Grafikseite 1 kann ein Raster von 280 (0—279) Punkten Breite und 160 
(0—159) Punkten Höhe dargestellt werden. Unterhalb der Grafikseite 1 steht 
noch ein nicht benutzter Raum zum Ausdruck von vier Textzeilen zur Ver- 
fügung. Dafür wird im BASIC-Programm der übliche PRINT-Befehl verwen- 
det. Die Grafikseite 2 verfügt über ein Raster von 280 X 192 Punkten. Sie 
bietet keinen Platz für Textzeilen. 

Der Befehl HCOLOR bestimmt die Farbe beim Ausdrucken in HI-RES- 
Grafik. Es stehen 8 Farben zur Verfügung. Ihre Kennzahlen lauten wie folgt: 


0 = SCHWARZ 4 = SCHWARZ 


1= GRÜN 5 = ORANGE 
2 = VIOLETT 6 = BLAU 
3=WEISS 7 = WEISS 


Die Farben Schwarz und Weiß sind zweimal vertreten (die Gründe hierfür 
sind technischer Art). Möglicherweise erscheinen die Farben 5 und 6 auf 
Ihrem Bildschirm nicht als Orange bzw. Blau. Eine der Schwierigkeiten der 
HI-RES-Farben liegt ın den unterschiedlichen Fernsehsystemen; die Darstel- 
lung der Farben ist von der Verwendung des speziellen Fernsehgeräts ab- 
hängig. Um einige dieser Probleme zu vermeiden, kann man in Schwarz-Weiß 


programmieren. 
Um die Farbe Weiß zu erhalten, benutzen wir den Befehl: 
HCOLOR = 3 


Die Farbe wird solange verwendet, bis ein weiterer HCOLOR-Befehl eine 
neue Farbe bestimmt. 

Der HPLOT-Befehl bewirkt das Zeichnen eines Punktes oder einer Linie auf 
der HI-RES-Seite. Die obere linke Ecke entspricht dem Punkt 0,0. Alle Punk- 
te werden in Relation zu diesem Punkt ausgedruckt. 

Der Befehl HPLOT 25,55 bewirkt das Ausdrucken eines Punktes in der 25. 
Spalte von links und der 55. Zeile von oben. Dies geschieht in der zuletzt 
benutzten Farbe. 

Mit HPLOT 10,20 TO 110,90 ergibt sich eine diagonale Linie von Punkt 
10,20 zu Punkt 110,90. Um die Linie über Punkt 110,90 hinaus fortzu- 
setzen, benutzen wir die verkürzte Form des HPLOT-Befehls: 


HPLOT TO 160,20 


Die verkürzte Form des HPLOT-Befehls setzt voraus, daß die Linie vom letz- 
ten ausgedruckten Punkt an fortgesetzt werden soll (in unserem Fall 110,90). 
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Die obigen Befehle können in einer einzigen Anweisung zusammengefaßt 
werden: 


HPLOT 10,20 TO 110,90 TO 160,20 


Das folgende Programm demonstriert die Anwendung der bisher erläuterten 
HI-RES-Befehle: 


io REM HI-RES DEMUL... 
tl 

110 Hafr 

120 HCOLOR= 2 

130 HFLOT 25,55 

140 BOSUB 220 


150 HPLOT 10,20 TO 110, 
{60  GOSUR 220 | 
170 MELOT TO 160,20 

{80  GOSUR 220 

190 60T0 300 


220  FRINT "MIT "RETURN’ GEHT ES WEITER..."; 
230 INPUT R$ 

240 RETURN 

300 END 


Geben Sie dieses Programm ein und starten Sie es. 


Frage 1: Welcher Befehl bewirkt das Ausdrucken einer senkrechten Linie 
von Punkt 160,20 zu Zeile 90? 
Schreiben Sie diesen Befehl in Programmzeile 185. 


Frage 2: Schreiben Sie in Zeile 190 einen Befehl, der den Ausdruck in 
grüner Farbe bewirkt. Wie erhalten Sie eine waagerechte Linie über 
den ganzen Bildschirm am oberen Bildrand? 
Schreiben Sie diesen Befehl ın Zeile 200. 


Die Befehle HGR und HGR2 löschen den Bildschirm mit schwarzer Farbe. 
Um den Bildschirm mit farbigem anstatt schwarzem Hintergrund zu löschen, 
verwenden wir folgende Befehle: 


— HGR oder HGR2 
— POKE 28,X 
— CALL 62454 


Die Variable X entspricht einer Zahl zwischen O und 255. Für die folgenden 
Werte von X bewirkt der POKE-Befehl ein Löschen des Bildschirms in den 
Farben: 


SCHWARZ O oder 128 
WEISS 127 oder 255 
GRÜN 42 
VIOLETT 85 

ORANGE 170 

BLAU 213 
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Für jeden anderen Zahlenwert erhalten wir ein interessantes Streifenmuster 
auf dem Bildschirm. Das Löschen des Schirms erfolgt sehr schnell. Ist die 
Hintergrundfarbe festgelegt, können wir mit anderen Farben Punkte und 
Linien über den Hintergrund zeichnen lassen. 


Einige HI-RES-Probleme 


Unser letztes Programm funktioniert genau wie erwartet. Auch wenn wir die 
Farbe ändern, wird das Programm weiter richtig arbeiten. Dies ist auch nach 
dem Umschalten auf Grafikseite 2 der Fall. Mıt Ausnahme des Textes 
“DRUECKE RETURN“ arbeitet das Programm wie erwartet. Wegen des 
fehlenden Textfensters können diese Worte nicht erscheinen. 


Daß das Programm genau so funktioniert, wie wir das erwartet haben, er- 
wähnen wir deshalb ausdrücklich, weil das nicht immer der Fall ist. Die 
Unterschiede in den Fernsehsystemen und Besonderheiten der HI-RES- 
Grafik bewirken, daß wir nicht immer das sehen, was zu erwarten ıst. Dazu 
zeigen wir nun ein ‚klassisches‘ Beispiel. Das folgende Programm versucht, 
einen schönen, einfarbigen Rand in der Grafikseite 1 zu zeichnen. Geben Sie 
das Programm ein und starten Sie es. Was geschieht? 


DD BEM ...HIRES UMRANDUNG,.... 
2 REM DEMONSTRIERT UMRÄANDUNG IN JEDER FARBE 


100 FOR J = 0 TO 7: REM VERWENDE ALLE FARBEN 

110 HOME : HER 

120 HEOLOR= J: REM  NAECHSTE FARBE 

200 HPLOT 6,0 TO 279,0 TO 279,159 TD 0,159 TO 0,0 
300 YTAR 22: PRINT "UMRANDUNG IN FARBE "zJ 

320  FRINT "DRUECKE RETURN FUER DIE NAECHSTE FARBE" 
325 PRINT "PRESS ESCAFE TO STOF..."; 

220 GET Z$ 

=40 IF 26 = CHR$ (27) THEN TEXT : END : REM ESC 
350 NEXT 

260 G0OTO 100: REM SCHLEIFE 


Wir sehen, daß einige der Ränder nicht vollständig sind. Andere Linien er- 
scheinen in mehreren Farben. Wie kommen diese Effekte zustande? Die 
Antwort auf diese Frage ist nıcht einfach. 


Frage 3: Warum erscheint bei den Farben O und 4 nichts auf dem Bild- 
schirm? 

Frage 4: Welche Farben ergeben einen vollständigen Rand, obwohl mehrere 
Farben gemischt werden? 


Fügen Sıe den folgenden Befehl zum Programm hinzu und starten Sie es er- 
neut. Beobachten Sie die Veränderungen. 


210 HPLOT 1,1 TO 278,1 TO 278,158 TO 1,158 TO 1,1 
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Mit diesem Befehl wird ein doppelter Rand erzeugt, indem ein weiterer 
innerer Rand hinzugefügt wird. Wir wollen feststellen, ob dadurch der ur- 
sprüngliche Rand verbessert wird. 


Frage 5: Welche Farben ergeben nun einen vollständigen, einfarbigen Rand? 


Die Farbe 5 (Orange) erscheint weiter in zwei Farben. Auch die Farbe Weiß 
wird nicht korrekt wiedergegeben. Es ist überraschend, daß dieses Problem 
auch dann besteht, wenn ein teurer und hochwertiger Video-Monitor ver- 
wendet wird. 


Streichen Sie Zeile 200 und schauen Sıe, ob der innere Rand allein richtig 
wiedergegeben wird. 


Frage 6: Was geschieht, wenn das Programm jetzt gestartet wird? 


Das gleiche Problem taucht auch bei Benutzung von Grafikseite 2 auf. Geben 
Sie dieses kleine Programm ein und starten Sie es: 


100 HGR 
110 HCOLOR = 1 
120 HPLOT 50,0 TO 70,150 


Frage 7: Wir erwarten, daß auf dem Bildschirm eine einfache Linie ausge- 
druckt wird. Was geschieht tatsächlich? 


Wählen Sie eine andere Farbe. Schauen Sie, ob das Bild sich dadurch ändert! 
Wählen Sie andere Bildschirmkoordinaten für den Ausdruck der Linie. Das 
Bild auf dem Monitor ändert sich ın einer interessanten Form. 

Es gibt noch weitere Probleme mit der HI-RES-Grafik. Einige Linien führen 
zu einem verwirrenden Durcheinander von Farben. Ein für alle Fernseh- 
systeme gemeinsames Problem besteht in einer unerwünschten orangen Linie 
am linken Bildschirmrand. Dies ist eine Folge der Konstruktion der HI-RES- 
Software. Andere Probleme hängen nicht von den Grafikfähigkeiten des 
APPLE-Computers ab. Allerdings sind sie ein Produkt elektronischer Schal- 
tungen in Fernsehgeräten und teuren Farbmonitoren. 


Spaß mit HI-RES 


Wir wollen dieses Kapitel nicht beenden, ohne einige Beispiele vorzuführen, 
die leicht und schnell mit der HI-RES-Grafik durchführbar sind. Wir können 
vieles mit HI-RES realisieren, nur sollten wir keine Vollkommenheit erwar- 
ten. Beim Durchführen der folgenden Übungen werden einige farbliche 
Mängel auf dem Bildschirm sichtbar. Aber nicht verzweifeln ... das gehört 
eben mit zur HI-RES-Grafik hinzu! 
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Geben Sie das folgende Programm ein. Es zeigt ein einfaches Gittermuster in 
HI-RES-Grafik: 


10 REM :..GITTER NETZ... 


2 REM  EINFACHES GITTER NETZ 


100 TEXT : REM BENUTZE VOLLEN RILDSCHIRM 

110 HO = 0: REM — H-URSFUNG 

Z0 YO = 159: REM  V-URSFRUNG 

120 MS = 19: REM MAXIMALE SCHRITTWEITE 

200 HOME : HGR 

210 5%=MS X RND (1) + 1: REM  WAEHLE SCHRITTWEITE DURCH ZUFALLSFUNKTI 
ON 

220 HTARB 1: VTAR 22: FRINT "SCHRITTWREITE = "35% 

230 27%= 7% RND (1) + 1: IF Z% = 4 THEN 230: REM  WAEHLE ZUFAELLIGE NI 
CHT-SCHWARZE FARBE 

240 HCOLOR= 7% 

00 RA = Wü / 54% 5%: REM INTERVALL 

a1 FOR J = 0T0 RA STEF 5%: REM  SCHRIITE INNERHALB DER INTERVALLGRENZ 
EN 

320 HFLOT HO,VO - RA + J TO HO + J,VO: REM _ NAECHSTES GITTER SEGMENT 

>70 NEXT 

„10 FRINT "DRUECKE RETURN FUER DAS NAECHSTE GITTER" 

>15 FRINT "FRESS ESCAFE TO STOF..."; 

20 GET Z$ 

a0 IF I$ = CHR$ (ZI THEN TEXT : END : REM ESC 

sa GOETO 200 


Speichern Sie es unter dem Namen GITTER NETZ ab. 


Nun zeigen wir kunstvollere Versionen eines geometrischen Gittermusters, 
die sehr einfach herzustellen sind und klar und deutlich auf dem Bildschirm 
erscheinen. Unser spezielles Beispiel ist etwa komplizierter und ruft bei man- 
chen Mustern künstliche Farbveränderungen hervor. Ändern Sie GITTER 
NETZ wie folgt und speichern Sie das neue Programm als GITTER NETZ2. 


10 REM .., «GITTER NETZE —- GITTER NETZ 

ii: 

12 REM SCHOENERES GITTER NETZ 

13 : 

110 HüO = 139: REM H-URSFRUNG 

120 VO = 79: REM V-URSFRUNG 

130 MS = 11: REM MAXIMALE SCHRITT WEITE 

330 HFLOT TO HO,VO + R% - Jr REM UNTERE RECHTE ECHEE 
>40 HFLOT TO HO - YO: REM UNTERE LINKE ECHEE 

50 HFLOT TO HO,VYO - RA + Js REM DRERE LINEE ECHEE 


Starten Sie das Programm. Beobachten Sie den Bildschirm. Was geschieht? 
Wir können jedes dieser zwei Programme mit anderen Spielprogrammen ver- 
binden. Dies gibt uns die Möglichkeit, eine Unterbrechung des Spiels effekt- 
voll anzuzeigen bzw. ein interessantes Schlußmotiv am Ende des Spiels dar- 
zustellen. 
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Zusammenfassung von Kapitel 4 


Vielleicht ist dieses Kapitel für diejenigen Leser enttäuschend gewesen, die in 
wenigen Seiten alle Tricks der HI-RES-Grafik kennenlernen wollten. Wir 
glauben, daß die Programmierung von HI-RES-Grafiken über die Möglich- 
keiten des durchschnittlichen Hobby-Programmierers zu Hause oder in der 
Schule hinausgeht. Das Programmieren mit HI-RES-Grafik macht mehr Spaß, 
wenn der Leser ein kommerzielles Software-Paket erwirbt und benutzt. 
Außerdem möchten wir daran erinnern, daß die LO-RES-Grafik sehr viel 
einfacher zu gebrauchen ist. Kinder finden LO-RES-Bilder genauso schön wie 
HI-RES-Bilder. 


Lösungen zu Kapitel 4 


Frage 1: 
Frage 2: 


Frage 3: 


Frage 4: 


Frage 5: 





Frage 6: 





Frage 7: 


185 HPLOT TO 160,90 
190 HCOLOR = 1 
200 HPLOT 0,90 TO 279,90 


Dies sind schwarze Farben. Sie sind auf einem schwarzen Bildschirm nicht 
sichtbar. 


Die Farben 3 und 7 sind weiß. Mit diesen Farben erscheinen alle vier Seiten 
der Umrandung, obwohl die vertikalen Seiten ungerade Farbkoordinaten 
haben. 


Grün, Violett, Weiß und Blau werden normal wiedergegeben. 


Wie beim ersten Programmdurchlauf taucht das Problem der ungeraden 
Farben wieder auf. 


Anstatt einer durchgehenden Linie erscheint eine Folge von kurzen Linien, 
die von Punkt zu Punkt verlaufen. 
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Kapitel 5 
Programme zur Dateneingabe 


In diesem Kapitel stellen wir einige Unterprogramme vor, die speziell für die 
Dateneingabe bei Computerspielen entwickelt wurden. Es sind folgende Pro- 
gramme: 

— das ‚Universelle Eingabe‘-Programm 

— das „Zahlen Eingabe‘‘-Programm 

— das „J/N“-Programm 

— das „Einzelne Zeichen Eingabe‘‘-Programm 

— das „Pause oder Tastendruck Eingabe‘“-Programm 

— das ‚Tastendruck ohne Wiedergabe‘-Programm. 

Sicherlich möchten viele interessierte Leser nähere Einzelheiten zu den 
Dateneinlese-Prozeduren wissen. Deshalb sind einige Teile des Kapitels mehr 
technischer Art. Für den Leser, der es nicht so genau wissen möchte, genügt 
es, die anwendungsbezogenen Teile des Kapitels zu lesen. 

Ein grundsätzliches Ärgernis für Benutzer von Computerspielen ist der Ab- 
bruch eines Programmes mitten im Spielverlauf aufgrund der Eingabe falscher 
Daten. Umgekehrt gilt dies auch für den Programmierer eines Computer- 
spiels, z.B. wenn unerfahrene Spieler falsche Daten eingeben oder falsche 
Tasten betätigen. Wie schon erwähnt, führt dies meistens zum Programmab- 
bruch: zur gegenseitigen Enttäuschung des Spielers als auch des Program- 
mierers. 


Unser endgültiges Programm enthält Prozeduren zur Bearbeitung von Daten- 
eingaben, testet die Gültigkeit der Daten und antwortet entsprechend. Der 
Abbruch eines Programmes wird in jedem Falle vermieden. Ein gutes Pro- 
gramm zur Dateneingabe ist immer mit Rücksicht auf den unerfahrenen Be- 
nutzer konstruiert. Es wird deshalb nur auf die vorgesehenen Tasten an- 
sprechen. Der Rest der Tastatur wird ignoriert. Wir haben vier Unterpro- 
gramme zur Dateneingabe entwickelt, die dieser Beschreibung entsprechen. 
Außerdem bieten wir zwei weitere Unterprogramme an, die für spezielle 
Zwecke benutzt werden können. 


56 


Hier ıst das komplette Programm EINGABE EINHEIT. Es enthält alle weiter 
oben aufgezählten Unterprogramme. 


10 REM ..„.„EINGABE EINHEIT... 


2 REM EINGABE DER UNTERFROGRAMME 


FF7E2 REM #% EINGABE UND WIEDERHOLUNG EINES TEXTES MIT RETURN #% 
57753 REM EINTRITT:CURSOR WIRD ZUM BEGINN DES EINGABE-FELDES GESETZT 


977974 REM Yu FELD LAENGE 

9775 REM YF$  FLATZHÄLTER FUER SFAETERE ZEICHEN 

7795 REM AUSGANG:  7$ TEXT 

7777 REM IH -1 (ESCh; © (NICHT ESC) 

2997; 

10000 IF LEN {YF$) © > 1 THEN YF$ =" "ı REM INITIALISIERE YF$ WENN NOTW 
ENGIG 


10010 YH% = FEEE (36) + 1: REM H-FO5 

19020 YYZ = FEEEK (37) + 15 REM V-FOS 

10100 GOSUR 10500: REM SETZE DAS EINSABE FELD ENTSPRECHEND YF$ UND INITIALI 
SIERE 

10110 GET Z1# | 

10120 IF Z1$ = CHRS$ (133 THEN RETURN 

10130 IF Z1$ X > CHR$ (273 THEN 10200: REM ESC 

10140  GOSUR 10500 

10150 FLASH : FRINT "ESC"H CHR$ (Bi;: NORMAL 

10l&0 7% = - 11 REM ESC FLAG 

19170 GOTO 10110 

10200 IF Zi#$ X 5 CHR$ (9) THEN 10200: REM LINKER FFEIL 

10210 IF ZE= -10OR LEN (78 © = 1 THEN 10100: REM ABFRAGE ESC ODER EIN 

ZEICHEN ODER WENIGER 

10220 FRINT CHR& (2): YF$; CHR# (Ds: REM LOESCHE EIN ZEICHEN 

102230 27$ = LEFTE (2$, LEN (789 - DD 

10240 GOTO 10110 

10300 IF Zi$ X " " THEN 10110: REM IGNORIERE ANDERE KONTROLLZEICHEN 

10310 IF Z4 = - 1 THEN GOSUR 10500: REM LOESCHE ESCAFE BEDINGUNG 

10320 IF LEN (78) © Yu THEN 10400 

103230 IF YW = 0 THEN 106110: REM WIEDERHOLE NICHT WENN LAENGE = 

10340 FRINT CHR$ (D)yr REM REREITS BEI MAXIMALER LAENGE 

10350 IF LEN (Z$3 = 1 THEN Z$ = "" 

1030 IF LEN {(Z#&3 = 1 THEN Z$ = LEFT#$ {Z$, LEN (Z#) -— DD 

10400 FRINT Zi1&;: REM WIEDERHOLE UND FUEGE ZEICHEN HINZU 

10410 Z$ = 7$ + 718 

10420 GOTO 10110 

10500 HTAR YHZ= VTAR YY%s FÜR Z = 1 TO YWı: FRINT YF$ı: NEXT : REM RESCHREI 
BE FELD ENTSFRECHEND YF$ 

10510 FRINT " "ar REM LIND LOESCHE MOEGLICHEN CURSOR 

10520 IF VYWÄ 2 THEN FOR Z=YW+ 1 TO 3: FRINT" "5:2 NEXT : REM LOESCHE M 
DEGLICHES ESC WENN FELD NICHT LANG GENUG 

105930 HTAB YHR: YVTAB WA 

10540 74 = 


PN 


N 


10500 72 = 0 
105650 RETURN 
10571 0: 


10572 REM * EINGABE ZAHL % 

10593 REM EINGANG: BEDINGUNGEN FUER EINGABE TEXTSATZ 

10594 REM AUSGANG: 7% -1 {ESC}H GO (UNGUELTIGIS 1 (GANZE ZAHLI: Z (DEZIMALZ 
AHL) 
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10595 REM Z WERT (WENN GUELTIG) 


10597 : 

10600 GOSUR 10000: REM LESE TEXT Ä 

10810 IF ZA= -10R LEN (2Z$) = 0 THEN RETURN : REM NUR ESC ODER RETURN ( 
2r=0) 


10620 7% = 1: REM SETZE GUELTIGES ZEICHEN 

10630 FOR Zi = 1 T0 LEN (Z#):Z21$ = MID$ (2$,271,1) 

10640 IF Zi$ = "." AND Z% = 1 THEN 7% = 2: GOTO 10580: REM BESTIMMUNG DES E 

RSTEN DEZIMALFUNKTES 

10550 IF (Z1$ © "O" OR ZI$ > "P") AND (Zi$ © 5 N-" AND ZI > 13 THEN ZA = 0: 
UNGUELTIG WENN KEINE ZAHL ODER EIN "-" ZEICHEN 

10640 NEXT 

10670 Z = VAL (Z$): REM WERT NUR BEI GUELTIGER FLAG (Z%=1 UR 2 

10580 RETURN 

10991 : 

10992 REM *k EINGABE GANZE ZAHL *% 

10993 REM EINGANG: BEDINGUNGEN FÜUER EINGABE TEXT SATZ 


10994 REM YL MINIMALE GANZE ZAHL 

10995 REM YH MAXIMALE GANZE ZAHL 

10996 REM AUSGANG: 7% -1 (ESC)IE © (UNBLELTIGE AZHLI; 1 (GUELTIGE ZAHL) 
10997 REM Z -WERT (WENN GANZE ZAHL GUELTIG) 

109997 ; 


11000 GOSUR 10600: REM EINGABE ZAHL 

11010 IF Z% 2 1 THEN RETURN : REM  ESC ODER UNGUELTIG 

11020 IF 7% = 2 THEN Z% = 0: RETURN : REM  UNGUELTIG WENN DEZIMALFUNKT 

11020 IF ZX YLOR Z = YH THEN Z% = 0: REM  UNGUELTIG WENN AUSSERHALB DER IN 
TERVALLGRENZEN 

11040 RETURN 

11091 : 

11092 REM %% EINGABE DEZIMALZAHL %% 

11093 REM EINGANG: BEDINGUNGEN FUER EINGABE TEXTSATZ 


11074 REM YL  MINIMALER WERT 

11095 REM YH MAXIMALER WERT 

11096 REM AUSGANG: 2% -1 (ESC); O (UNGUELTIGI: 1 (GANZE ZAHLE 2 (DEZIMALZ 
AHL 

11077 REM Z-WERT (WENN GUELTIG} 

11097 : 


11100 GOSUR 10500: REM EINGABE ZAHL 

11110 IF Z%& 1 THEN RETURN : REM  ESC DDER UNGUELTIG 

11120 IF ZE& YLOR Z > YH THEN ZA = 0: REM UNGLIELTIG WENN AUSSERHALB DER IN 
TERVALLGRENZEN 

111530 RETURN 

11191: 

11192 REM **k EINGABE IT ODER N X% 

11195 REM  EINGANG:CURSOR UND YF$ GESETZT 

11194 REM AUSGANG: 7% -1 (ESC); © (WEDER J NOCHN I; 1 (DD, 2 (N 

11199 : 

11200 Y$ = "IN": REM BENUTZE UNTERFROGRAMM ZUR EINGABE EINES EINZELNEN ZEIC 


HENS 

11291 

11202 REM *%2 EINGABE EINES EINZELNEN ZEICHEN UND VEREBINDEUNG MIT GUELTIGEM 
TEXT 9% 

11292 REM EINGANG:CURSOR UND YF$ GESETZT 

11294 REM Y$ TEXT VON VERBINDUNGSZEICHEN 


11295 REM AUSGANG: 7% -1 (ESC); © (ZEICHEN NICHT IM TEXTSATZDI J AP TESZ 
ICHEN IM VERRBINDUNGSTEXT) 

11299 : 

113500 YwW = 1: REM SETZE FELD-LAENGE 

115310  GOSUR 10000 

11320 IF ZX= -10OR LEN (Z$) = 0 THEN RETURN : REM NUR ESC DDER RETURN 
77=0) 


i /a 
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REM 


11320 Z% = 0: REM SETZE ZEICHEN FUER NICHT VERBUNDEN 

11340 FOR Z1 =1T0 LEN (YS 

11350 IF Z$ = MIDE iY$,Z1,13 THEN Z% = Zi: REM “ERBINDE MIT FOSITION 71 

11380 NEXT 

11370 RETURN 

11391 : 

113072 REM ık FAUSE FESTE LAENGE ODER BIS TASTENDRUCHE K% 

11393 REM EINGANG:YF LAENGE DER FAUSE IN INTERNEN ZEITEINHEITEN 

11394 REM OO WARTE AUF TASTENDRUCH 

11395 REM AUSGANG: 7% -1 (ESC): O0 (FAUSE ABGELAUFEN): 1 {TASTENDRUCK BEVO 
R FAUSE ABGELAUFEN) 

1137& REM Z TASTENDRUCHK (ASCII-WERT + 1289) 

11399 : 

11400 FOFKE - 165368,0: REM LOESCHE BISHERIGES ZEICHEN 


11410 Z1 = Or: REM INITIALISIERE ZAEHLER (% EINGANG FUER EINZELNE TASTENK 

11420 Zi = Zi +1 

11430 Z = FEEE ( - 16384) 

11440 IF Z> = 128 THEN ZA=1- 2% (Z = 1559: RETURN : REM TÄSTENDRUCK: A 
BFRAGE FUER ESC DANN RETURN 

11450 IF ZLX& YFOR YF = DO THEN 11420 


11460 7% = 0: REM FAUSE ABGELAUFEN 

11470 RETURN 

11491 : 

11492 REM %k EINGABE EINZELNER ZEICHEN, KEINE WIEDERHOLUNG, OHNE VORÄANGEHE 
NDES ZEICHEN X% 

11493 REM AUSGANG: Z% -1 (ESC}H 1 (ANDERE TASTE) 

11494 REM 2 TASTENDRUCHK (ASCII-WERT + 128 

11499 : 

11500 YF = 0: GOSUE 11400: REM WARTE AUF TASTENDRUCH 

11510 FÜOEE - 163658,0: RETURN : REM  LOESCHE TASTENFUNKTIONEN UND RETURN 

11571 : 

11592 REM *% EINGABE EINZELNER ZEICHEN, KEINE WIEDERHOLUNG, MIT VORANGEHEN 
DEM ZEICHEN *% 

11573 REM AUSGANG: ZY -1 {ESCHH 1 (ANDERE TASTE) 


11574 REM 2  TASTENDRÜICHK{ASCII-WERT + 1290 

11597 : 

11&00 YF = 0: GOSUR 119420: REM EINGABE EINER TASTE,KEIN ZEICHEN VORHER 
i11&l0 FOEE - 168368,0: RETURN : REM LOESCHE TASTENFUNETIONEN LIND RETURN 


Das Unterprogramm „Universelle Eingabe‘ 


Das Unterprogramm zur universellen Dateneingabe akzeptiert alle Zeichen 
der Tastatur: Zahl, Buchstabe und spezielle Symbole. Es kann zur Eingabe 
aller Daten benutzt werden. Wir dagegen benutzen es nur für die Eingabe von 
Zahlen und speziellen Symbolen. Das Unterprogramm simuliert die Verwen- 
dung des üblichen INPUT-Befehls ın BASIC. Dies setzt voraus, daß der Be- 
nutzer die RETURN-Taste betätigt, um anzuzeigen, daß die Dateneingabe 
abgeschlossen ist. Einige Programmierer verwenden sowohl GET- als auch 
INPUT-Befehle in einem Programm. Es ıst für ungeübte Benutzer sehr ver- 
wirrend, für manche Antworten die RETURN-Taste drücken zu müssen und 
für andere nicht. Bei unserem Programm ist bei jeder Dateneingabe die 
RETURN-Taste erforderlich. (Ein technischer Hinweis: Zwar wird für die 
Dateneingabe eine GET-Anweisung benutzt, aber jede Eingabe wird auf das 
RETURN-Zeichen überprüft. Die Eingabe-Prozedur endet erst mit Eingabe 
des RETURN-Zeichens.) 
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Eine weitere Programmvereinbarung gibt uns die Möglichkeit, zu jeder Zeit 
die ESCAPE (ESC)-Taste zu drücken. Die ESC-Taste erfüllt eine bestimmte 
Aufgabe: Im allgemeinen zeigt der Benutzer damit an, daß er das Spiel be- 
enden möchte. Unser Programm überprüft, ob die ESC-Taste betätigt wird. 
Wenn dies der Fall ist, leuchtet das Wort ESC auf dem Bildschirm auf. Damit 
zeigt das Programm dem Benutzer an, daß die ESC-Taste betätigt wurde. 
Durch das Drücken der RETURN-Taste wird die Dateneingabe beendet. Das 
Betätigen jeder anderen Taste macht die Eingabe von ESC wieder rückgängig. 
Das Programm verbleibt weiter in der Phase der Dateneingabe. 

Wie das Programm auf das Betätigen der ESC-Taste reagiert, wird durch die 
Befehle des Programmierers bestimmt. 


Anwendung des ‚Universelle Eingabe -Unterprogramms 


Dieses Unterprogramm beginnt in Zeile 10000. Die folgenden REM-Anweı- 
sungen stehen vor Beginn des Unterprogramms. 


7792 REM 4% EINGABE UND WIEDERHOLUNG EINES TEXTES MIT RETURN %% 
39773 REM EINTRITT:CURSOR WIRD ZUM BEGINN DES EINGABE-FELDES GESETZT 


7774 REM YW FELD LAENGE 

979795 REM YF$ FLATZHALTER FUER SFAETERE ZEICHEN 
7995 REM AUSGANG: 7% TEXT 

7957 REM FArA -1 {ESC), © {NICHT ESC) 

7999 


Wie wir sehen, gibt es die Eingangsvariablen YW und YF$ und die Ausgangs- 
variablen Z$ und Z%. Vor dem Eintritt in das Unterprogramm müssen wir 
den Eingangsvariablen einen Wert zuweisen. Der Eintritt wird durch den Be- 
fehl GOSUB 10000 bewirkt. Die YW-Variable bestimmt die Länge des Fel- 
des, d.h. die Anzahl der Zeichen, die unser Programm bei der Eingabe akzep- 
tiert. Wenn der Benutzer ein Wort mit 20 Buchstaben eingeben soll, dann 
muß im Programm die Anweisung stehen: 


200 YW = 20 


YF$ ist ein Platzhalter-Zeichen, die bei vielen Spielen allgemein gebräuchlich 
sind. Sie erscheinen immer dann, wenn der Benutzer Worte eingeben soll. Die 
Worte werden dann an die Stelle der Platzhalter gesetzt. Wird YF$ kein Zei- 
chen zugewiesen, so wird YF$ als Leerzeichen (blank) angesehen. Auf dem 
Bildschirm erscheinen deshalb Leerzeichen an der Stelle, die der Benutzer 
mit Buchstaben ausfüllen soll. Wenn wir aber YF$ ein Zeichen zuweisen, 
können wir damit anzeigen, wie viele Buchstaben oder Zahlen einzugeben 
sind. Hier ist ein Beispiel: 


210 YF$ =“ 
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Das folgende Beispiel zeigt, wie man das Unterprogramm in einem Spielpro- 
gramm aufruft. Die Feldlänge YW soll 3 betragen, die Platzhalter-Variable 
ist "X. 

200 YW = 3: YF$ = "X 

210 PRINT “GIB EINE DREISTELLIGE ZAHL EIN“ 

220 GOSUB 10000 


Frage 1: Wie lauten die BASIC-Anweisungen für die Eingangsvariablen 
eines Wortes mit 10 Buchstaben? Als Platzhalter soll ein Gleich- 
heitszeichen dienen. 


Die Ausgangsvariablen erfüllen zwei Funktionen. Z$ enthält die eingegebenen 
und auch angenommenen Daten. Dies können sowohl Zahlen als auch Buch- 
staben sein. Die Variable Z% beträgt - 1, wenn die ESC-Taste gedrückt wird; 
sie bleibt auf Null, wenn die ESC-Taste nicht betätigt wird. Die ESC-Taste 
kann für viele Zwecke genutzt werden. Dieses Unterprogramm gibt uns die 
Freiheit, die Funktionen der ESC-Taste selbst zu wählen. In einigen unserer 
Programme haben wir folgende Vereinbarung getroffen: Mit dem Drücken 
der ESC-Taste während des Spiels gibt der Benutzer seinem Wunsch nach 
Hilfe Ausdruck. Es erscheinen Hinweise und Informationen auf dem Bild- 
schirm. Drückt der Benutzer anschließend nochmals die ESC-Taste, wırd das 
Programm beendet. Will er das Spiel fortsetzen, kann er die RETURN-Täaste 
betätigen. Dies alles wird gesteuert, indem wir die Flexibilität unseres Pro- 
gramms EINGABE EINHEIT ausnutzen. 


Die ESC-Funktion kann auch benutzt werden, um zu einem Menü zu gelan- 
gen, das mehrere Wahlmöglichkeiten bietet. Zum Beispiel können in einem 
Kartenspiel die Karten neu gemischt werden, oder ein Spieler kann die 
Runde verlassen. Es gibt noch eine Menge anderer Beispiele für die Anwen- 
dung der ESC-Funktion. In diesem Unterprogramm wird nur festgelegt, ob 
die ESC-Taste gedrückt wurde. Wie das Programm darauf reagiert, bestimmt 
der Programmierer selbst. 


Hier ist der restliche Teil des ‚Universelle Eingabe“ -Unterprogramms. 


10000 IF LEN (YF$) © 5 1 THEN YF$ = " "r REM INITIALISIERE YF$ WENN 
NOTWENDIG 

10010 YH% = FEER 156) + 13 REM H-FOS 

10020 YV% = FEEEK (37) + 1: REM V-FOS 

10100 GOSUR 10500: REM SETZE DAS EINGABE FELD ENTSFRECHEND YF$ UND INI 
TIALISIERE 

10110 GET Z1$ 

10120 IF Z1$ = CHR$ (12) THEN RETURN 

10130 IF Zi$& > CHR$ (ZA THEN 10200: REM ESG 

10140 GÜOSUB 10500 

10150 FLASH 2 FRINT "ESC", CHR$ (Oly: NORMAL 


10160 2% = - 1: REM ESC FLAG 

10170 GOTO 10110 

10200 IF Zi & 5 CHR$ (9) THEN 10300: REM LINEER FFEIL 

10210 IF ZX= -10R LEN (Z$) © = 1 THEN 10100: REM ABFRAGE ESC ODE 


R EIN ZEICHEN ODER WENIGER 
10220 FRINT CHR$ (DB), YF$; CHR$ {Bi:: REM  LODESCHE EIN ZEICHEN 
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10230 Z$ = LEFT$ (Z$, LEN (ZI - D 

10240 GOTO 10110 

10300 IF Zi$ © " " THEN 10110: REM IGNORIERE ANDERE EONTROLLZEICHEN 

10310 IF 7% = - 1 THEN GOSUR 10500: REM  LDESCHE ESCAFE BEDINGUNG 

10320 IF LEN (Z$) £ YW THEN 10400 

10330 IF YW = O THEN 10110: REM WIEDERHOLE NICHT WENN LAENGE 

10340  FRINT CHR$ (B);: REM BEREITS BEI MAXIMALER LAENGE 

10350 IF LEN (Z$) = 1 THEN Z$ = "" 

10360 IF LEN (Z$) > 1 THEN Z$ = LEFT$ (Z$, LEN (Z$) -— D 

104060  FRINT Zi$;: REM  WIEDERHOLE UND FUEGE ZEICHEN HINZU 

10410 Z7$ = Z$ + Z1$ 

10420 GOTO 10110 

10500 HTARB YH%: VTAR YVY%: FOR Z = 1 TO YWı FRINT YF$;: NEXT : REM BES 
CHREIBE FELD ENTSFRECHEND YF$ 

10510  FRINT " "ss: REM UND LOESCHE MOEGLICHEN CURSOR 

10520 IFYW& 2 THEN FOR Z = YW + 1 TO 3: FRINT " "5: NEXT : REM LOES 
CHE MOEGLICHES ESC WENN FELD NICHT LANG GENUG 

10530 HTAR YH%: VTAR YV% 

10540 7$ = "" 

10550 2% = 0 


10550 RETURN 


OD 


Wir sehen, daß alle eingegebenen Daten mit einer Textvariable Z$ belegt 
werden. 

Wir schreiben jetzt einige Anweisungen, die uns dıe Eingabe eines Wortes 
mit vier Buchstaben ermöglichen. Das Platzhalter-Zeichen soll ein Punkt sein. 
Eine Abfrage von ESC (GOTO 4000) ıst auch enthalten. Wenn die ESC- 
Taste nicht betätigt wird, kann der Benutzer ein weiteres Wort mit 10 Buch- 
staben eingeben. 


200 YW =4: YF$ =". 

210 PRINT “GEBEN SIE IHRE LOESUNG EIN: “ 

220 GOSUB 10000 

230: 

240 IF Z% =- 1 THEN 4000: REM ESC-TEST 

260: 

270YW=10: YF$ =.“ 

280 PRINT “GEBEN SIE EIN WEITERES WORT EIN: “ 
290 GOSUB 10000 

300 REM PROGRAMM WIRD FORTGESETZT 


3999 STOP 


Starten Sie das Programm und probieren Sie einige Variationen aus. Beant- 
worten Sie anschließend folgende Fragen: 


Frage 2: Versuchen Sie mehr Buchstaben einzugeben als vom Programm 
akzeptiert werden. Was geschieht? 


Frage 3: Was geschieht, wenn die Taste mit dem nach links gerichteten 
Pfeil gedrückt wird? 


Frage 4: Was bewirkt die Eingabe von CTRLC? 
Frage 5: Wie reagiert das Programm auf die ESC-Taste? 


Einige technische Bemerkungen 


Dieses kleine Unterprogramm ist in seinen Auswirkungen sehr leistungsfähig. 
Wenn im Programm kein Zeichen angegeben wird, belegt das Unterprogramm 
in Zeile 10000 die Platzhalter-Variable mit dem vorbestimmten Leerzeichen 
(blank). Die Zeilen 10010 und 10020 führen zum späteren Gebrauch Varia- 
blen für die Curser-Position ein. Das Unterprogramm in Zeile 10500 druckt 
die Platzhalter-Variable auf dem Bildschirm ein und zeigt dadurch, daß nun 
die Eingabe von Daten erwartet wird. 


Die einzige Stelle, an der dıe Daten direkt eingegeben werden, ist die GET- 
Anweisung in Zeile 10110. Die Dateneingabe erfolgt mit einer Textvariable. 
Deshalb werden sowohl Zahlen und Buchstaben als auch spezielle Symbole 
akzeptiert. Die RETURN-Funktion wird ın Zeile 10120, die ESC-Funktion 
in Zeile 10130 abgefragt. Anschließend behandelt das Programm die Lösch- 
prozedur mit der ““=“‘-Taste (10200 bis 10230), ignoriert alle unerwünschten 
Zeichen (10300) und überprüft die Länge der eingegebenen Worte und Zahlen 
(10330 bis 10350). 


Frage 6: Welche Funktion hat die Zeile 10410? 


Das Unterprogramm ‚Zahlen Eingabe“ 


Das vorherige Programm kann alle eingegebenen Daten akzeptieren: Zahlen, 
Buchstaben und spezielle Symbole. Wir haben zwei Unterprogramme zur 
Eingabe numerischer Daten entwickelt: ein Unterprogramm zur Eingabe von 
Integer-Zahlen und eins zur Eingabe von Dezimalzahlen. Hier sind die ersten 
Programmzeilen des „Zahlen Eingabe‘-Unterprogramms. Sie werden sowohl 
bei Integer-Zahlen als auch bei Dezimalzahlen benutzt. 


10592 REM %* EINGABE ZAHL X 
10593 REM EINGANG: BEDINGUNGEN FUER EINGABE TEXTSATZ 
10594 REM AUSGANG: ZA -1 (ESC); 0 AUNGUELTIGISE 1 (GANZE ZAÄHLIG 2 (DEZ 


IMAL ZAHL) 

10595 REM Z WERT (WENN GUELTIG) 

105997 : 

10500  GOSUR 10000: REM LESE TEXT 

10610 IF Z4= -10R LEN (Z#$3 = 0 THEN RETURN : REM NUR EST ODER RE 
TURN (ZA=0) 


10620 Z%4 = 1: REM SETZE GUELTIGES ZEICHEN 
10630 FOR Z1 =1T0 LEN (Z#:21$ = MID$ (78,21, 
10640 IF Zi$ = "." AND Z% = 1 THEN Z% = 2: GOTO 10&&0: REM BESTIMMUNG 


DES ERSTEN DEZIMALFUNKTES 

10550 IF {Zi$ © "Oo" OR ZI$ > "9" ) AND (Zi & > "-" AND ZI > 12 THEN ZA = 
Os: REM  UNGUELTIG WENN KEINE ZAHL ODER EIN "-" ZEICHEN 

106540 NEXT 


10670 7 = VAL (Z$): REM WERT NUR BEI GUELTIGER FLAG (27%=1 OR 2) 
10680 RETURN 
10971 :; 


63 


Die Eingabe von Integer-Zahlen 


Manchmal wird vom Benutzer die Eingabe einer Integer-Zahl innerhalb eines 
bestimmten Intervalls verlangt, z.B. zwischen 1 und 100; für negative Zahlen 
wird das Minuszeichen (-) verwendet. Wir wollen jetzt ein spezielles Unter- 
programm vorstellen. Der Eintritt in dieses Unterprogramm erfolgt in Zeile 
11000. 


Hier ıst das Listing zur Eingabe von Integer-Zahlen: 


167971 5 

10792 REM *% EINGABE GANZE ZAHL W% 

10773 REM EINGANG: BEDINGUNGEN FLUER EINGABE TEXT SATZ 

10994 REM YL MINIMALE GANZE ZAHL 

109975 REM YH MAXIMALE GANZE ZAHL 

12795 REM AUSGANG: 7% -1 (ESC); 0 (UNGUELTIGE AZHL): 1 (GUELTIGE ZAHL 


10977 REM Z -WERT (WENN GANZE ZAHL GUELTIG) 


11000 GOSUR 10400: REM EINGABE ZAHL 

11610 IF ZX X 1 THEN RETURN : REM ESC ODER UNGUELTIG 

11020 IF 2% = 2 TNEN Z% = 0: RETURN : REM UNGUELTIG WENN DEZIMALFUNKT 

11030 Im ZEYLOR ZZ > YH THEN ZA = Gr REM UNGUELTIG WENN AUSSERHALR D 
ER INTERVALLGSRENZEN 

11030 RETURN 


Die Eingangsvariablen bestimmen die obere und untere Grenze der Integer- 
Zahlen, weiterhin bestimmen YW und YF$ die Länge des Feldes und das 
Platzhalter-Zeichen. Im folgenden Listing werden die Eingangsvariablen so 
festgesetzt, daß nur eine dreistellige Zahl zwischen 250 und 750 eingegeben 
werden kann. 


200 YW = 3: YF$ =“ 

210 YL = 250: YH = 750 

220 PRINT "GIB EINE DREISTELLIGE ZAHL EIN: “ 
230 GOSUB 11000 

240: 


Die Ausgangsvariablen dieses Unterprogramms unterscheiden sich von den 
vorhergehenden. Wird die ESC-Taste gedrückt, dann ist Z% = -1. Wenn die 
eingegebene Zahl in den Bereich zwischen 250 und 750 fällt, wird Z% = 0 
gesetzt. Das bedeutet, daß der Benutzer in seinem eigenen Programm eine 
Überprüfung vornehmen kann. Der Spieler kann so angewiesen werden, eine 
Zahl innerhalb des zufälligen Intervalls anzugeben. Die Variable Z enthält 
die eingegebene und vom Programm akzeptierte Zahl. Die nächsten Pro- 
grammzeilen demonstrieren, wie die Ausgangsvariablen gesetzt werden kön- 
nen: 


250 IF Z% =-1 THEN 5000: REM ESC TEST 
260 IF Z%=0 THEN PRINT “BITTE GEBEN SIE EINE ZAHL 
ZWISCHEN“; YL; “UND“; YH; “AN.“: GOTO 200: REM TEST 
OB ZAHL UNGUELTIG 
270IF Z=N THEN 4000: REM RICHTIGE ANTWORT 
280: 
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Die Eingabe von Dezimalzahlen 
Zur Eingabe von Dezimalzahlen benutzen wir das folgende Unterprogramm: 
11091 : 


11092 REM *%% EINGABE DEZIMALZAHL %% 
11093 REM  EINGANG:BEDINGUNGEN FUER EINGABE TEXTSATZ 


11094 REM YL_ MINIMALER WERT 

11095 REM YH MAXIMALER WERT 

11096 REM AUSGANG: 7% -1 (ESC}H, 0 (UNGUELTIBIE 1 (GANZE ZAHL): 2 (DEZIMALZ 
AHL) 

110977 REM Z-WERT (WENN GUELTIG) 

11099 : 


11100 GOSUR 10a00s REM EINGABE ZAHL 

11110 IF Z% © 1 THEN RETURN : REM  ESC ODER UNGLELTIG 

11120 IF Ze&E YLORZ = YH THEN Z% = 0: REM  UNGUELTIG WENN AUSSERHÄLB DER IN 
TERVALLGRENZEN 

11130 RETURN 

11191: 


Der Eintritt erfolgt in Zeile 11100. Die Eingangsvariablen bleiben erhalten: 
YL und YH für die Intervallgrenzen, YW und YF$ für Feldlänge und Platz- 
halter-Symbol. Die Ausgangsvarıable Z% kann einen weiteren Wert an- 
nehmen. Sie erhält den Wert 2, wenn die eingegebene Zahl einen Dezimal- 
punkt enthält. Ansonsten ist ihre Funktion die gleiche wie ım vorherigen 
Unterprogramm. 


Das ‚„J/N‘'-Unterprogramm 


Eine besondere Form der Dateneingabe liegt vor, wenn nur ein einzelner 
Buchstabe benötigt wird. Ein typischer Fall ist: 


MOECHTEN SIE INFORMATIONEN (J/N): 


Das nachfolgende spezielle Unterprogramm akzeptiert nur die beiden Buch- 
staben J und N: 


11191 

11192 REM *%X EINGABE J OBER N X%k 

111735 REM EINGANG: CURSOR UND YF$ GESETZT 

11174 REM AUSGANG: 7% -1 (ESC)E O (WEDER J NOCH N); 1 (N, 2 {N 

11197 :; 

11200 Y$ = "IN": REM BENUTZE UNTERFROGRAMM ZUR EINGABE EINES EINZELNEN ZEIC 


HENS 

11271: 

11292 REM x EINGABE EINES EINZELNEN ZEICHEN UND VERRBINDEUNG MIT GUELTIGEM 
TEXT X% 

11295 REM EINGANG:CURSOR UND YF$ GESETZT 

11294 REM Y$ TEXT VON VERBINDUNGSZEICHEN 


11295 REM AUSGANG: 7% -1 (ESC): O (ZEICHEN NICHT IM TEXTSATZIS I GUTES ZE 
ICHEN IM VEREINDUNGSTEXT) 

11299 : 

11200 YW = 1: REM SETZE FELD-LAENGE 

11310 GOSUR 10000 

11320 IF Z7%= -10R LEN (Z7$) = O0 THEN RETURN : REM NUR ESC ODER RETURNG 
7%4=0) 

11330 Z% = 0: REM SETZE ZEICHEN FUER NICHT VERBUNDEN 

11340 FOR Z1=1T0O LEN (Y 

11350 IF 7$ = MID* (Y$,Z1,1) THEN Z% = Zi: REM  VERBINDE MIT FOSITION Z1 

11360 NEXT 

11370 RETURN 65 


Anwendung des ‚„J/N -Unterprogramms 


Das Programm akzeptiert nur J für Ja und N für Nein. Zur Anwendung ge- 
nügen die folgenden Zeilen: 


200 YF$ = ““-“: REM PLATZHALTER-SYMBOL 
210 GOSUB 11200 
220: 


Die Ausgangsvariable Z% erhält den Wert -1, wenn die ESC-Taste benutzt 
wurde. Sie ist Null, wenn weder J noch N gedrückt wurde. Gibt der Benutzer 
J ein, erhält sie den Wert 1. Bei Eingabe von N wird Z% = 2 gesetzt. Die Ab- 
frage von Z% nach Verlassen des Unterprogramms kann wie folgt aussehen: 


230 IF Z% =-1 THEN 5000: REM ESC TEST 

240 IF Z%=0 THEN PRINT: PRINT “BITTE GEBEN SIE NUR ]J 
ODER N EIN“: GOTO 200: REM NICHT-GUELTIGE EINGABE 

250IF Z%=1 THEN GOSUB 8000: REM DRUCKE INFORMA- 
TIONEN WENN ] EINGEGEBEN 

260 REM FORTSETZUNG DES PROGRAMMS 


Das Unterprogramm ‚Einzelne Zeichen Eingabe“ 


Ein weiteres Unterprogramm von EINGABE EINHEIT gibt uns die Möglich- 
keit, jeden beliebigen Buchstaben einzugeben, nicht nur J oder N. Das Unter- 
programm beginnt in Zeile 11300. Vor dem Aufruf des Unterprogramms 
muß wieder die Platzhalter-Variable YF$ spezifiziert werden. Y$ enthält 
diesmal alle Zeichen, die akzeptiert werden sollen. Wenn wir zum Beispiel 
die Eingabe der Buchstaben A, E, I, O und U erlauben, werden die Variablen 
wie folgt bestimmt: | 


250 YF$ = "-" 

260 Y$ = "AEIOU“ 

270 PRINT “GIB EINEN BUCHSTABEN EIN: “; 
280 GOSUB 11300 


Die Ausgangsvariable ist immer noch Z%, doch ihr Zahlenwert hat jetzt eine 
andere Bedeutung erhalten. Ist 2% = -1, wurde die ESC-Taste gedrückt. Der 
eingegebene Buchstabe ist ungültig, wenn Z% den Wert Null annimmt. Sonst 
ist Z% immer eine positive Zahl, die uns die Nummer des Buchstabens in Y$ 
angibt. Zum Beispiel hat der Buchstabe I die Nummer 3, da I der dritte 
Buchstabe in Y$ ist (AEIOU). 


Das Unterprogramm ‚Pause oder Tastendruck“ 
Nachdem der Spieler eine Antwort eingegeben hat, erhebt sich die Frage: 
Wie lange soll das Programm mit der Reaktion warten? 


Der Computer könnte zum Beispiel antworten: “DIESER BUCHSTABE IST 
NICHT GUELTIG“ oder “WAEHLE EINE ZAHL ZWISCHEN 1 UND 40“ 
oder irgendetwas ähnliches. Der Spieler benötigt Zeit, um diese Antworten 
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zu lesen und zu verarbeiten. Erst danach kann das Programm fortfahren. Bei 
einer kurzen Pause hat besonders der unerfahrene Spieler zu wenig Zeit zur 
Verfügung. Ist die Pause zu lang, werden die fortgeschrittenen Spieler unge- 
duldig. Mit dem „Pause oder Tastendruck“ -Unterprogramm können wir eine 
für Anfänger ausreichend lange Pause in unser Programm aufnehmen. Die 
Pause kann aber durch Betätigen einer Taste sofort beendet werden. Im allge- 
meinen fragt das Programm anschließend nach einer neuen Eingabe. Die be- 
reits gedrückte Taste wird als Teil der neuen Eingabe angesehen. 


Wir empfehlen den Einbau dieser Eingabe-Möglichkeiten in die Spielprogram- 
me. Lassen Sıe den Spieler diese Tastenfunktion selbst entdecken. Wir 
glauben, daß diese Möglichkeit nicht durch zusätzliche Bedienungshinweise 
erklärt werden muß. Es verwirrt bloß den Anfänger, und der Bildschirm wird 
unübersichtlich. Dieses Unterprogramm kann aus EINGABE EINHEIT 
herausgelöst werden und als selbständige Einheit in Spielprogrammen einge- 
setzt werden. 


ilari : 

11392 REM #4 FAUGE FESTE LAENGE ODER BIS TASTENDRUCE %% 

11372 REM EINGANG:YF LAENGE DER FAUSE IN INTERNEN 7EITEINHEITEN 

11294 REM 0 WARTE AUF TASTENDRUCH 

11375 REM AUSGANG: 7a 1 {ESDIE © (FAUSE RAEGELAUFEN}s 1 CTASTENDRUCK BEVO 
R FAUSE ABGELAUFEN) 


11395 REM 2 TASTENDRUCKLASCII-WERT + 128) 

112977: 

11900 FÜKE —- 16358,0: REM LOESCHE BISHERIGES ZEICHEN 

11410 21 Or REM INITIALISIERE ZAEHLER (8 EINGANG FUER EINZELNE TASTENX) 

11420 Zi 2i+]1 

11430 2 = PFEEH ( - 168384) 

11440 IF EZ 5 = 128 THEN ZA=S1- 2% (Z = 159: RETURN : REM TASTENDRUCK; A 
BFRAGE FUER ESC DANN RETURN 

11350 IF ZLEYFORYF = 0 THEN 11420 

11350 7% = 0: REM FAUSE ABGELÄUFEN 


no 


Die Eingangsvariable YP ist gleich Null, falls sie nicht anders festgelegt wird. 
Wenn YP = 0 gilt, muß der Benutzer eine Taste drücken, um das Spiel fort- 
setzen zu können. Ansonsten gibt YP die Länge der Pause in rechnerinternen 
Zeiteinheiten an. Probieren Sie einige Werte für YP aus. 

Die Ausgangsvariable Z% hat den Wert -1, wenn die ESC-Taste gedrückt 
wurde. Sie nimmt den Wert O an, wenn die Pause abgelaufen ist, und erhält 
den Wert 1, wenn der Spieler eine Taste vor Ablauf der Pause betätigt. Hier 
ist ein Beispiel, das zeigt, wie die Ein- und Ausgangsvariablen im Programm 
angewendet werden: 


300 REM INFORMATIONEN 

310: 

320 LET YP = 100 

330 GOSUB 11400 

340: 

350 IF Z%=-1 THEN 5000: REM ESC TEST 

360 IFZ%=OTHEN PRINT "WENN SIE MEHR ZEIT BENOETIGEN, 
FRAGEN SIE IHREN LEHRER!“: GOTO 300 

370 REM FORTSETZUNG DES PROGRAMMS 67 


Das Unterprogramm ‚Tastendruck ohne Wiedergabe“ 


Ein weiteres, allgemeines Problem ergibt sich aus der Frage: Wie lange soll 
man nach dem Ausdruck von Informationen oder anderen Mitteilungen war- 
ten? Die Lesefähigkeiten der Spieler oder der Grad ihrer Vertrautheit mit 
dem Spiel sind oft recht unterschiedlich. Deshalb ist es wünschenswert, daß 
der Spieler dem Programm selbst mitteilt, wann es weitergehen soll, und 
zwar durch Tastendruck. Das ist eine bessere Lösung, als den Programmierer 
die Länge der Pausen im voraus abschätzen zu lassen. 

Es gibt zwei Versionen dieses Unterprogramms. Die erste heißt: „Tasten- 
druck ohne Wiedergabe, ohne vorheriges Zeichen‘. Sie beginnt ın Zeile 
11500. Das zweite Unterprogramm „Tastendruck ohne Wiedergabe, mit vor- 
herigem Zeichen“ beginnt in Zeile 11600. Beide Programme warten auf die 
Eingabe, bis eine Taste betätigt wird (das zusätzliche RETURN ist nicht er- 
forderlich). Das zugehörige Zeichen wird aber nicht auf dem Bildschirm 
wiedergegeben. Im Gegensatz zum „Pause oder Tastendruck‘-Programm 
wird das eingegebene Zeichen anschließend sofort gelöscht. Das Zeichen ist 
also nicht ein Teil der folgenden Dateneingabe. Die Ausgangsvariable Z% be- 
trägt wieder - 1, wenn die ESC-Taste betätigt wurde. Nach Gebrauch einer 
anderen Taste ist Z% = 1. Die Variable Z erhält den ASCII-Wert der gedrück- 
ten Taste zuzüglich 128. Eingangsvariablen sind keine vorhanden. 


Der Unterschied zwischen den beiden Unterprogrammen besteht in der Mög- 
lichkeit eines vorangehenden Tastendrucks. Die APPLE-Hardware besitzt 
eine „Ein-Zeichen-Memory‘‘, die jeweils einen Zustand entsprechend dem 
Wert der zuletzt gedrückten Taste einnimmt. Das Einlesen von der Tastatur 
bedingt das Warten auf die Festlegung dieses Zustandes, das Ablesen des ein- 
gegebenen Zeichens und schließlich das Löschen des vorherigen Speicherzu- 
standes. Damit wird angezeigt, daß keine weitere Taste gedrückt wurde. (Im 
APPLE II-Handbuch finden sich nähere Einzelheiten.) Das Unterprogramm 
„ohne vorheriges Zeichen‘ ab Zeile 11500 löscht zuerst den bisherigen 
Speicherinhalt und wartet dann auf den nächsten Tastendruck. Durch das 
Löschen des Speicherinhalts ist der Benutzer nun gezwungen, nach dem Aus- 
druck von Informationen (oder anderer Dinge) eine Taste zu betätigen. An- 
schließend wartet das Programm noch einmal auf einen Tastendruck. Das 
Unterprogramm „mit vorherigem Zeichen“ gibt dem Benutzer die Möglich- 
keit, die Pause vorwegzunehmen bzw. sie zu vermeiden. Die Pause wird aller- 
dings auch dann übersprungen, wenn der Benutzer aus Unaufmerksamkeit 
eine zusätzliche Taste betätigt. Für die Anwendungen dieses Kapitels empfeh- 
len wır die Benutzung des Unterprogramms ‚mit vorangehendem Zeichen“. 
Für interessierte Leser weisen wir darauf hin, daß eine andere Version dieses 
Unterprogramms in dem Spiel SIMON in Kapitel 7 benutzt wird. In Zeile 
3000 des SIMON-Listings wird die nächste Musiknote abgefragt. Das THEN- 
Kommando entscheidet anschließend, an welcher Stelle die Note wiederge- 
geben wird. 
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In den Programmen aus Kapitel 1 bis 4 haben wir keine der hier beschriebenen 
Techniken zur Dateneingabe benutzt. Wenn der Leser einige der früheren 
Programme verwenden möchte, müssen diese mit dem Programm EINGABE 
EINHEIT verbunden und die notwendigen Anpassungen in Bezug auf die 
Ein- und Ausgangsvariablen vorgenommen werden. 


Zusammenfassung der Unterprogramme zur Dateneingabe 


Zur Benutzung der Unterprogramme ist es am einfachsten, EINGABE EIN- 
HEIT vollständig mit den eigenen Programmen zu verbinden. Wird nur das 
„Pause oder Tastendruck‘‘-Unterprogramm benötigt, kann der Rest von 
EINGABE EINHEIT gelöscht werden. Das vollständige Unterprogramm 
EINGABE EINHEIT benötigt jedoch nicht viel Speicherplatz. Es lohnt sich 
kaum, dieses in Teile zu zerlegen und nur die benötigten Teile mit dem 
eigenen Programm zu verbinden. Verwenden Sie das ganze Programm. Das 
ist viel einfacher! 


Unterprogramm ‚‚Universelle Eingabe“ 


Aufruf: GOSUB 10000 

Eingangsvariablen: YW: Feldlänge 
YF$: Platzhalter-Symbol (wenn kein Wert bestimmt 
wird, ıst YF$ das Leerzeichen) 


Ausgangsvariablen: Z$: Eingegebener Text 
Z%: — 1 (ESC); 0 (nicht ESC) 


Unterprogramm „Zahlen Eingabe“ 


Dieses Unterprogramm benötigt das ‚Universelle Eingabe‘‘-Programm. 
Integer Zahlen: 
Aufruf: GOSUB 11000 
Eingangsvariablen: YW: Feldlänge 
YF$: Platzhalter-Symbol 
YL: Minimaler Wert 
YH: Maximaler Wert 
Ausgangsvariablen: Z: Zahlenwert 
Z%: -1 (ESC); O (ungültige Integer-Zahl); 1 (gültige 
Integer-Zahl) 
Dezimalzahlen: 
Aufruf: GOSUB 11100 
Eingangsvariablen: YW: Feldlänge 
YF$: Platzhalter-Symbol 
YL: Minimaler Wert 
YH: Maximaler Wert 
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Ausgangsvariablen: Z: Zahlenwert 
Z%: 1 (ESC); O0 (ungültige Zahl); 1 (gültige Integer- 
Zahl); 2 (Dezimalzahl) 


Unterprogramm „J/N“ 


Dieses Unterprogramm benötigt das ‚Universelle Eingabe‘‘-Programm. 
Aufruf: GOSUB 11200 

Eingangsvariable: YF$: Platzhalter-Symbol 

Ausgangsvariable: Z%: —1 (ESC); 0 (weder J noch N); 1(J); 2 (N) 


Unterprogramm „Einzelne Zeichen Eingabe 


Dieses Unterprogramm benötigt das ‚Universelle Eingabe‘-Programm. 
Aufruf: GOSUB 11300 


Eingangsvariablen: Y$: enthält zulässige Zeichen 
YF$: Platzhalter-Symbol 


Ausgangsvariable: Z% -1 (ESC); O (Zeichen ist nicht in YF$ enthalten); 
J (Zeichen steht in der j’ten Position ın YF$) 


Unterprogramm „Pause oder Tastendruck 


Aufruf: GOSUB 11400 
Eingangsvariable: YP: Länge der Pause 


Ausgangsvariable: Z%: —-1 (ESC); O0 (Pause abgelaufen); 1 (Tastendruck 
bevor Pause abgelaufen) 


Unterprogramm ‚Tastendruck obne Wiedergabe, obne vorheriges Zeichen‘ 
Aufruf: GOSUB 11500 
Eingangsvariable: Keine 


Ausgangsvariablen: Z%: -1 (ESC); 1 (anderer Weg) 
Z: ASCII-Wert des Tastendrucks + 128 


Unterprogramm „Tastendruck obne Wiedergabe, mit vorberigem Zeichen“ 


Aufruf: GOSUB 11600 
Eingangsvariablen: Keine 


Ausgangsvariablen: Z%: -1 (ESC); 1 (anderer Weg) 
Z: ASCII-Wert des Tastendrucks + 128 
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Zusammenfassung von Kapitel 5 


In diesem Kapitel haben wir bereits die dritte Programmeinheit vorgestellt, 
die der Leser zum Schreiben von eigenen Spielprogrammen verwenden kann. 
Aber auch für andere Programme ist dieses Unterprogramm EINGABE EIN- 
HEIT hervorragend geeignet. Es erlaubt die vollständige Kontrolle über alle 
Daten. Wir können festlegen, welches erlaubte und gültige Dateneingaben 
sind. In den Spielprogrammen der nun folgenden Kapitel werden wir zeigen, 
wie wir die Unterprogramme zur Dateneingabe angewendet haben. 


Lösungen zu Kapitel 5 


Frage 1: 


Frage 2: 


Frage 3: 


Frage 4: 





Frage 5: 


Frage 6: 


200 YW = 10: YF$ = “=“ 

210 PRINT “GIB EIN WORT MIT 10 BUCHSTABEN EIN: “; 

220 GOSUB 10000 

Das letzte Zeichen wird gelöscht und durch den zuletzt getippten Buchstaben 
ersetzt. Es können nicht mehr Zeichen als erlaubt eingegeben werden. 

Die letzten Zeichen werden gelöscht und können durch neue Zeichen über- 
schrieben werden. Damit kann der Benutzer falsch eingegebene Daten korri- 
gieren. 

Es geschieht nichts. Die CTRL-Taste wird ignoriert. 

Die ESC-Schrift leuchtet solange auf dem Bildschirm auf, bis eine andere 
Taste betätigt wird. Wenn Daten eingegeben werden sollen, wird die ESC- 
Taste gelöscht. Die eingegebenen Daten werden akzeptiert. 

Der Ausgangstext Z$ wird erstellt. Ein Zeichen nach dem anderen wird mit 
Z$ verknüpft. 
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Kapıtel 6 
Wortspiele 





Die Behandlung von Textvariablen, oder das Arbeiten mit Texten, die vom 
Benutzer beim Spiel eingegeben werden, ist das Grundgerüst einiger „klassı- 
scher‘‘ und höchst interessanter Computerspiele. Obwohl durch die tech- 
nischen Neuerungen Möglichkeiten für Farbe, Grafik und Klang geschaffen 
wurden, bleiben die Wortspiele weiterhin faszinierend, zum Spielen wie auch 
zum Programmieren. 

Dieses Kapitel behandelt Wortspiele, die von den Textbearbeitungsmöglich- 
keiten des APPLE Gebrauch machen, und erläutert, wie ein Spiel einer be- 
stimmten Spielerrunde angepaßt wird. Wir werden drei Typen von Wort- 
spielen behandeln: Konstruieren von Geschichten, Wörter raten und Wörter 
verbinden. Für jeden Typ werden vollständige Spiele entwickelt. Anschließend 
werden die Funktionen einzelner Programmteile erläutert. 


Story 


STORY stellt eine Reihe von Fragen und fügt die Antworten in ein vorher 
festgelegtes Format. Die Struktur des Spiels läßt viele Möglichkeiten offen 
und kann je nach Teilnehmerkreis modifiziert werden. Das Programm er- 
zeugt aus gegebenen Antworten lustige Satzkombinationen nach Art einiger 
bekannter und beliebter Kinderspiele. 


10 REM ... STORY-EINDABE BILDER 


728 REM *% INITIALISIERUNG X 


1000 DIM RP$(10,10): REM MAXIMALE ANZAHL DER ZUFAELLIBEN GRUFFEN % MAXIMALE 
ANZAHL DER FRABEN IN JEDER GRUFPE 

1010 DIM NR(1O): REM AKTUELLE ANZAHL DER FRAGEN IN JEDER GRUFFE 

1020 DIM Astlölı REM MAXIMALE ZAHL DER ANTWORTEN 


177 

11758 KeM x TITELRBILD X 
1177 3 

120 


200 BR : HOME : COLOR= 15: GOSUB 15500: REM — LOESCHE MIT WEISS 


i210 COLOR= dr: FOR Z = 11 T0 33 STEF 11: REM BLAUE LINIEN 
ZEG HLIN 5, 3P AT Z 98 
1220 HLIN 0,27 AT 
1240 NEXT 


1250 K# = VSCHREIE"SAV = 4: Xi) = 05 GOSUR 15300 

2b 38 = "EINETINV = XV oH+ 11: GOSUR 15300 

1E7O KE = "STORY" EXV = KW + 11: SOEUR 1200 

1250 WTAR ZI: HTAR 72 PRINT "MIT RETURN GEHT ES WEITER..." 
1250 mSUR 1100: REM HARTE AUF TASTENDRUCH 

1300 IF IS = - 1 THEN END: REM ESC 

1977 : 

19759 REM *k INITIALISIERUNG FUER NAECHSTE STORY 

1997 : 


ROH TEXT » HOME 

ol0 Z = Silüücös GOSUR 17000: REM SETZE DATA-ZEIGER AUF ZUFALLSSRUFFEN 
SOFT: 

2099 REM % LÄDE ZUFALLSTEILE VON STORY X 

2097 ; 

zi00 RP = 

zilo I=0 

Fi2C READ Z$: REM x SETZE RICHTIGE SATZFOLGE MIT NEUER GRUFFE 
ZOG RF= RP + I: REM NAEC CHaTE GRUFFE VON SATZTEILEN 

z2i0 J = Cr REM ZAHL DER SATZTEILE IN AKTUELLER GRUFPE 

ZE3O IF Z$ = "END" THEN 2300 

zo gel +]$ 

2250 RR$iRF,gı = Ihr REN SFEICHERE SATZTEIL 


TIL I D 7 
Fa REA Fe 
Dr ef rt 
FR sUTO 2230 


z2300 NRIRFI = Js REM ZAHL DER ZUFALLSTEILE IN GRUPFE RF 
Z3l10 READ Z$: REM UEBERFRLEFE ZWEITES "END" 
2320 IF Z$ = "END" THEN 2500: REM KEINE WEITEREN ZUFALLSTEILE 


2320 GOTO 2200: REM RICHTIGE SATZKONSTRUKTION, BESINNE MIT NEUER GRUFPE 
2497 

2498 REM x STELLE FRAGEN UND SFEICHERE DIE ANTWORT % 

2499 ı 


500 NG = 0 

2510 HTAR 14: FRINT "Ak STORY RN" 

2520 NVTAB 22: HTAR 11: FRINT "DRUECKE "ir INVERSE : FRINT "ESC";: NORMAL : PRINT 
" FUER FROGRAMMENDE." ; 

zZ&00 READ Us: REM LEBERFRUEFE OB WEITERE FRAGEN 

si IF Os = "END" THEN 3000: REM KEINE WEITEREN FRAGEN 

Z62G ND = NQO + 1: REM WEITERE FRAGEN 

Z&:0 VTIABRZXKND + 4: HTAR 1: FRINT 98," 

2640 YW = 38 »- LEN (DE): REM MAXIMALE LAENGE DER ANTWORT 

26550 GOSUR 15000 

auasl IF Z4 = - 1 THEN 5000; REM ESC 

z&70 IF LEN (Z$) = 0 THEN 25850: REM SCHLEIFE FUER KEINE ANTWORT 

zuB0 AND) = Z$: REM SFEICHERE NAECHSTE ANTWORT 

26970 GOTO 2600 

2997; 

2998 REM *x% SCHREIBEN VON STORY IK 

2997 : 

2000 HOME : REM FAUSE VOR DEM SCHREIBEN DER GESCHICHTE 

„010 SPEED= 10 

S020  VTAR 11: HTAR ? 

3030 FRINT "HIER IST DEINE GESCHICHTE." CHR& 073". CHR$ (73".": CHRS$ (7) 

„040  SPEED= 255 

S050 YP = 50: GOSUR 11400: REM FAUSE ODER TASTENDRLCK 

„ol: 
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3092 REM % SCHREIBE GESCHICHTE AUS DEN SATZTEILEN DER DATA-ANWEISUNGEN % 

3093 REM SCHLEIFE FUER WOERTER,DIE AM ENDE DER ZEILE ARGESCHNITTEN WERBEN 

2099 3; 

2100 L = 3: REM LINKER RAND (FUER TEXTFENSTER) 

s11l0O W= 34: REM BREITE 

3120 T = 4: REM OBERSTE ZEILE 

3130 B= 20: REM UNTERSTE ZEILE 

140 FOFE S32,L: REM SETZE TEXTFENSTER 

3150 REM SETZEN DER BREITE IST UNNDETIG 

31680 FOKE 34,T 

3170 FOEE 35,B 

180 HÜME : REM BEWEGE CURSOR ZUR UNTEREN LINKEN ECHE DES FENSTERS 

s200 5$ = "": REM INITIALISIERE BILDSCHIRM-ZEILE 

s210 READ Z$: REM NAECHSTES STORY ELEMENT 

3220 IF Z$ = "END" THEN 3900: REM ENDE VON STORY 

3220 IF LEFT$ (Z$,1) = "#" THEN 3500: REM BENUTZE SFEZIFIZIERTE ANTWORT NU 
MMER 

3240 IF LEFT$ (Z$,1) = "8" THEN 3600: REM BENUTZE ZUFALLSTEIL DER SNDESEBE 
NEN GRUFFE 

300 5$ = S$ + Z$: REM VEREINDE STORY TEILE 

as10 IF LEN (5%) = W THEN 3210: REM BILDSCHIRMZEILE NOCH NICHT GANZ VOL 
L 

3520 Z=W+ 1: REM VERSUCHE DIE ZEILE NACH DEM AM WEITESTEN RECHTS STEHENDE 


N LEERZEICHEN ABZURRECHEN 


3330 REM STARTE MIT DEM ERSTEN BUCHSTABEN UNTERHALB DER MAXIMALEN LAENGE 

33240 IF Z=1THENZ=W + 1: GOTG 3400: REM HEINE LEERZEICHEN VORHANDEN; BE 
NUTZE MAXIMALE LAENGE 

3350 IF MID$ (5$,.2,1) = " " THEN 3400: REM  LEERZEICHEN IN FOSITION Z SEFÜUN 
DEN 

3360 2=Z-1 

3370 GOTO 3340 

3400 FRINT LEFT$ (5$,2Z - 1): REM  UNTERRBRECHE DIE ZEILE BEIM Z’TEN ZEICHEN 

s410 IF Z= LEN (5%) THEN 3200: REM ES BLEIBT NICHTS UEBRIG 

420 5S$ = RIGHT$ (5$, LEN (5S$) -— ZI; REM REST DER ZEILE 

5430 6G0T0O 32310: REM  UEBERFRUEFE OB NOCH ZU LANG 

3500 Z$ = A$( VAL C RIGHT$ (Z$, LEN (Z#$) - 1:))2 REM BENUTZE SFEZIFIZIERTE A 


NTWORT NUMMER 


510 GOTO 3300 

2600 zZ = VAL ( RIGHT$ (Z$, LEN {Z$) - 12): REM ZUFALLSSRUFFE BESTIMMT 

S610 I& = RP$(Z,1 + INT (NR{D x RND il)33: REM WAEHLE EIN ZUFÄLLSELEMENT 

3520  GOTO F300 

900 IF LEN {S5$) "0 THEN FRINT 5%: REM %* ENDE VON STORY -— DRUCKE RESTLIC 
HEN TEIL % 

„910 TEXT : REM VOLLES TEXTFENSTER 

3797: 

998 REM *X NOCH EINMAL?” X%X 

39977 : 

soon HTAR 1: VTAR 24 

6010 FRINT "EINE WEITERE GESCHICHTE (J OBER NT"; 

6020  GOSURB 11200: REM J/N 

60350 ON ZA + 2 GOTO 6100, 6000, 2000, 6100: REM ESC. LNGUELTIG, J, N 

#100  FRINT : FRINT 

&i110 PRINT "DANEE FUER’S MITSFIELEN.";: 

8120 END 

0991 :; 

S0992 REM X ZUFAELLIGE SATZTEILE,MIT "END" ARGESCHLOÖSSEN X 

30993 REM JEDE GRUFFE ENDET MIT "END" 

50994 REM ZUFALLSGRUFFEN "51000 DATA "END", "END" 

0999 : 

S100O0 DATA "AM KARNEVAL" „ "IN EINER DUNELEN NACHT", "END": REM x GRUFFE 

1% 
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s1010 DATA "RANNTEN", "SASSEN" „ "FOKERTEEN", "END": REM 4 GRUFFPE EX 


31020 DATA "AM STRAND" . "IN DEN BERGEN" ‚ "IN EINEM JAGDHAUS" „ "IN 
DER SCHULE", "IN DER WUIESTE", "END": REM %* GRUFPE 3% 

si030 DATA "HOERTEN", "BEMERKTEN", "END": REM * GRUFFE 4 % 

„1040 DATA "SCHLEIMIGE", "GROSSE", "STRUFFIGE",. "WILDE", "END": REM x GRU 
FPFESKH 

„1050 DATA "FLIRTETEN", "SPIELTEN SCHACH", "ERZAEHLTEN SICH GESCHICHTEN", " 
FOKERTEN " « "STREITETEN" « "END": REM * GRUFFE & % 

1050 DATA "BRACHTE IHNEN ALLEN EINEN GERBURTSTAGS-KUCHEN", "FLOG MIT IHNEN 

IN EINEM HUBSCHRAUBER VON DANNEN", "SANG IHNEN EIN SCHLAFLIED", "END": REM 
% GRUFFE 7 % 

„1070 DATA "END": REM ENDE DER ZUFALLSGRUFFEN 

1971: 

„1992 REM * FRAGENTEIL,WIRD MIT "END"ARGESCHLÜSSEN % 

21999 ; 


s2000 DATA "WIE IST DEIN NAME?" 

s2010 DATA "WAS IST DEINE LIEELINGSFARBET" 
2020 DATA "WEN MAGST DU BESONDERS GERN?" 
32030 DATA "WELCHE TIERE FUERCHTEST DU?" 
2040 DATA "WER IST DEIN BESTER FREUND?" 
2050 DATA "END" 

wer; 

32972 REM * STORY, ENDET MIT "END" X 

32993 REM ART DER DATEN: 


32994 REM "#NUMMER" = DRUCKE ANTWORT NUMMER 

32995 REM "SNUMMER" = DRUCKE EINEN SATZTEIL AUS GRUPFE NUMMERS 
329968 REM "END" = ENDE VON STORYiWIRD NICHT GEDRUCKT) 
32997 REM SONSTIGES = DRUCKE ALS TEXTVARTARLE 

32999 : 

53000 DATA rn gar, 

33010 DATA "EI," UND "CH" 

3S020 DATA “on, tsi",". FLOETZLICH " 


53030 DATA "84"," SIE VIELE ","sg0," " 
SI040 DATA "HZ", "E ","44" 

53050 DATA ". DIE " 

53060 DATA "#2", "EN ","44" 


31070 DATA "ABER " „"56"," MIT IHNEN,DOCH DANN KAM " 
33080 DATA "#3" 

33090 DATA "UND ","E7r,N." 

3100 DATA "END" 


sonod : 
&0010 REM %* COFYRIGHT 1781 BY HOWARD FRANKLIN, FALO ALTO, CA X 
0020 : 


Verbinden Sie dieses Programm mit BILD EINHEIT. Speichern Sie es mit 
dem Befehl SAVE STORY und tippen Sie RUN. 


Dem Programm liegt das original STORY-Programm zugrunde. Es wurde neu 
überarbeitet, um Eingabe-Überprüfungen und Bildschirm-Formatierung mit 
aufzunehmen. STORY wurde im Community Computer Center geschrieben 
und erschien 1976 erstmals in einer amerikanischen Computer-Zeitschrift. 
STORY wurde als lustiges Spiel entworfen, soll jedoch ebenso eine nützliche 
Sprachübung für Leseanfänger sein. Die Fragen ın diesem Spiel sind von per- 
sönlicher Art. Kinder merken sich sehr leicht ihre Antworten. Auf diese 
Weise ist es nicht schwierig für sie, die Geschichte, die der Computer ausgibt, 
zu lesen. Das Spiel STORY fragt nach Antworten auf bestimmte Fragen, 
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fast wie in einem kleinen Gespräch, und unterscheidet sich so von anderen 
Spielen dieser Art. 

Auch gibt es bei STORY weder Gewinner noch Verlierer, im Gegensatz zu 
den mehr traditionellen Spielen. Daher empfinden größere Kinder und sogar 
Erwachsene Freude an diesem Spiel. Es kann als eine spielerische Hinführung 
zu Computern angesehen werden, die viel Spaß bereitet. In der Tat kann 
STORY von erfahrenen Spielern auch leicht zu einer ‚Einführung in das 
Programmieren‘ abgewandelt werden. Nach mehrmaligem Benutzen des Pro- 
gramms kann man ein bestimmtes Muster in der Konstruktion der Geschich- 
ten erkennen und beginnt so, die Arbeitsweise des Programms zu verstehen. 
Basierend auf den Erfahrungen mit STORY, kann den Benutzern dieses 
Spiels die Funktionsweise von Computerprogrammen erläutert werden. Die 
Fragen sind so gestellt, daß sowohl ein einzelnes Wort als auch längere For- 
mulierungen als Antworten möglich sind. Entsprechen die Antworten in 
grammatikalischer Hinsicht den gestellten Fragen, so fügen sie sich sauber in 
den anschließenden Aufbau der Geschichte ein. Die Länge der Antworten 
ist jedoch begrenzt, wie man aus Programmzeile 2640 ersehen kann. 


Frage 1: Was wird geschehen, wenn Sie eine Frage so ändern, daß diese aus 

45 Zeichen besteht? 

Frage 2: Wie würden Sie das Programm ändern, um andere Fragen zu 
stellen? 





Das zufällige Abbrechen eines Wortes am Ende einer Zeile, auch das konti- 
nuierliche Weiterschreiben am Beginn der nächsten Zeile, wollen wir an dieser 
Stelle einmal mit ‚Überschreiben‘‘ benennen. Dieses Überschreiben kann 
sehr ärgerlich sein. Bedauerlicherweise leiden noch immer viele mit Texten 
arbeitende Programme daran. Ein Programmteil (Prozedur) von STORY ver- 
hindert dieses Überschreiben am Bildschirm. Die Prozedur überprüft den 
freien Raum (am Ende des Wortes) und unterbricht die Zeile an geeigneter 
Stelle. Vielleicht möchten Sie diese Prozedur in anderen, von Ihnen ge- 
schriebenen Programmen benutzen? 


Frage 3: Welcher Teil behandelt das Problem des Überschreibens am Bild- 
schirm? 





STORY sollte stets dem speziellen Benutzerkreis angepaßt werden. Formulie- 
rungen, Inhalt und Länge der Geschichte müssen den Lesefertigkeiten und 
der Erfahrung bzw. dem Wissen der Mitspieler entsprechen. 


Wir zeigen nun, wie Teile des Textes einer Geschichte geändert werden kön- 
nen. Dazu sehen wir uns die Programmzeilen 50000 bis 51070 an. Sie ent- 
halten zufällig ausgewählte Ausdrücke und Redewendungen für die Geschich- 
te. Jede Folge solcher Satzteile endet mit dem Wort “END“, gefolgt von 
einer REM-Anweisung. (Das Wort “END“ ist unbedingt erforderlich, die 
REM-Anweisung kann natürlich auch weggelassen werden.) Beispiel: 


51000 DATA "AM KARNEVAL®, “IN EINER DUNKLEN NACHT“, 
“END“: REM *RANDOMI* 
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Zeile 51000 zeigt also, daß in RANDOM1I nur zwei Möglichkeiten für eine 
zufällig ausgewählte Redewendung angeboten werden. Unser Programm be- 
sitzt sieben solcher Zusammenstellungen von Satzteilen. 


Frage 4: Wie viele Auswahlmöglichkeiten gibt es bei der dritten Zusammen- 
stellung? 


Man kann den Text einer Geschichte ändern, indem man die Ausdrücke in 
diesen Zusammenstellungen ändert. Hierbei muß beachtet werden, daß die- 
selbe Struktur wie im Programm benutzt wird. Den Aufbau einer Geschichte 
zu ändern, erweist sich als etwas schwieriger. Eine Geschichte wird nach 
folgendem Schema aufgebaut: 


20972 REM % STORY, ENDET MIT "END" % 
32993 REM ART DER DATEN: 


52994 REM "#NLIMMER" = DRUCKE ANTWORT NUMMER 

52995 REM "SNUMMER" = DRUCKE EINEN SATZTEIL AUS GRUPPE NUMMERS 
52996 REM "END" = ENDE VON STORY (WIRD NICHT GEDRUCKT) 
52997 REM SONSTIGES = DRUCKE ALS TEXTVARIABLE 

52999 : 

53000 DATA oo "sit, non ngau, un, 

53010 DATA "#1"," UND ","45" 

53020 DATA “u,ngzu,®, PLOETZLICH " 


22030 DATA "g4"," SIE VIELE ","85"," 
TION DATA yaı . "E u , "ya" 


53050 DATA ". DIE " 

53060 DATA "#2","EN ", "44" 

53070 DATA " ABER " „"8&"," MIT IHNEN,DOCH DANN KAM“ 
53080 DATA "#3" 

53090 DATA" UND ","87","." 


3100 DATA "END" 


Die Zeilen 52994 bis 52997 zeigen, wie eine solche Geschichte erstellt wird. 
Es folgt der formale Aufbau der zu spielenden Geschichte. Um den Ausdruck 
der vom Benutzer gegebenen Antwort auf dem Bildschirm erscheinen zu 
lassen, benutzen wir das #-Symbol, gefolgt von der Frage-Antwort-Nummer, 
wie in Zeile 53080. Die dritte Antwort des Benutzers wird entsprechend der 
DATA-Anweisung in Zeile 53080 ausgedruckt. Um einen der zufälligen Satz- 
teile auszusuchen, benutzen wir das $-Symbol, gefolgt von der Nummer 
einer diese RANDOM-Gruppen. So bewirkt Zeile 53000 die Auswahl eines 
der Satzteile aus der mitGRUPPE1 gekennzeichneten Gruppe ın Zeile 51000. 
Alle anderen Texte in der Geschichte werden so ausgedruckt, wıe sie einge- 
geben wurden (zum Beispiel die Wörter in den Zeilen 53020 und 53070). Die 
Geschichte wird beendet durch die Eingabe von END“, wıe in Zeile 53100 
zu sehen ist. 

Sie werden feststellen, daß das geschickte Zusammenfügen der Satzteile und 
Antworten der Mitspieler sowohl Praxis als auch Erfahrung erfordert. Je 
mehr Sie spielen, desto besser werden die Geschichten werden. Ihre Freunde, 
gleich welchen Alters, werden Ihre Geschichten genießen. 
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Blockout 


BLOCKOUT ist ein Wortratespiel und hat seinen Ursprung in einem amerI- 
kanischen Kinderspiel namens Hangman. Der Spieler hat eine feste Anzahl 
von Versuchen, um ein unbekanntes Wort zu erraten. Wenn er das Wort nicht 
errät, wird er am Galgen aufgehängt. BLOCKOUT basiert auf dem gleichen 
Prinzip, doch haben wir die Grausamkeit, die bei Hangman im Hintergrund 
besteht, weggelassen. Auch kann die festgelegte Anzahl von Versuchen zum 
Erraten des Wortes verändert werden. BLOCKOUT präsentiert das beliebte 
Kinderspiel in neuer Form, indem es sich die Grafikfähigkeiten des APPLE 
zunutze macht. 


10 REM ...„BLOCKOUT — EINGABE KLANG BILD 

il: 

997: 

998 REM xx INITIALISIERUNG 8% 

997: 

1000  DIM WDE (SO) 

1010 ML 16: REM MAXIMALE LAENGE DES UNBEKANNTEN WORTES 


1020 HG = B: REM HORIZONTALE FOSITION FUER RATEVERSUCHE 

1030 HC = HG + ML + 1: REM HORIZONTALE FSITION FUER ANHALTSPUNKTE 
1040 VG = 21: REM VERTIKALE POSITION FUER RATEVERSUCHE 

1050 VC = VG: REM VERTIKALE FOSITION FUER ANHALTSPUNKTE 

1100 NW = 0: REM % ZAEHLE DIE WOERTER AUND SPEICHERE SIE IN WDE{J) X 
1110 Z = 51000: GOSUR 19000: REM LESE DATEN AUS ZEILE S1000 

1120 READ Z$ 

1130 IF Z$ = "END" THEN 1200: REM KEINE WEITEREN WORTE 

1140 IF LEN (Z$) = ML THEN 1120: REM LDESCHE ZU LANGE WOERTER 
1150 NW = NW + 1: REM NAECHSTES WORT 

1160 WDS(NW = 7$ 

1170 GOTO 1120 

1200 NG = 10: REM VORBESTIMMTE ANZAHL DER FALSCHEN VERSUCHE 

1210 GU = 15: REM OBERE SCHRANKE FUER RATEVERSUCHE 

220 GL = 5: REM UNTERE SCHRANKE 

1300 DIM BK4(15,0): REM H/V POSITIONEN DER BLOECKE 

1310 BH = 2: REM HORIZONTALE LAENGE 

1320 BV = 3: REM VERTIEALE HOEHE 

1397 ; 

1398 REM x TITELBILD % 

1399 : 

1400 GR : HOME : COLOR= 1: GOSUR 15500: REM HINTERGRUND IN ROT 
1410 COLOR= 0: FOR J = 1 TO 80: REM ZUFALLSBLOECKE IN SCHWARZ 
1420 XH = INT (37 X FRND (1)) + 1:XV = INT (26 %& RND {1} + 1: REM ZUFAEL 


LIGE FOS 
1450 FOR Z = 0 TO Ze: HLIN XH,XH + 1 AT XV + Zz: NEXT 
1440 NEXT 


1450 XC(2) = 15:XV = 12:X$ = "BLOCK": GOSUR 15200 

14560 XV = XV + XB + 2:%X$ = "OUT": GOSUR 152300 

1470 VTAR 25: HTAR &: FRINT "MIT RETURN GEHT ES WEITER.."; 
1480 GOSUR 11500: REM WARTE AUF TASTENDRUCK 


1490 IF Z’A= -1THEN END : REM ESC 

19700  GOSUB POcoı REM INFORMATIONEN 

1997 

1998 REM *k INITIALISIERUNG FUER EIN NEUES SFIEL 3% 
1999 : 

zZ000 IF NW = G THEN Z4Rü0: REM KEINE WEITEREN WORTE 


2010 Z = INT (NW RND (DI +1 
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2020 SW$ = WD£(Z): REM NIMM EINES DER BISHER NICHT BENUTZTEN WOERTER 

2030 WD$(Z) = WDS(NW): REM ERSETZE DAS GEWAEHLTE WORT DURCH DAS NAECHSTE UN 
BENUTZTE WORT 

2040 NW = NW - 1: REM UND VERRINGERE DIE LISTE DER UNBENUTZTEN WOERTER UM 1 

2100 L$ = "": REM  INITIALISIERE L$,U$,C$, UND BL$ 

z2110 ug = "" 

2120 0$ = "" 

2130 FOR J = 1 T0 26 

2140 L$ = 1L$ + CHR$ (64 + I}: REM  NAECHSTER BUCHSTABE DES ALFHABETS 

2150 U6 = U6 + " ": REM EIN WEITERES LEERZEICHEN 

2160 C$ = C$ + "-": REM EIN WEITERES - 

2170 NEXT 

2180 C$ = LEFT$ (C$, LEN (SW$)): REM  KUERZE DIE HINWEISE AUF DIE LAENGE DES 

UNBEKANNTEN WORTES 

2190 BL$ = U$ + U$: REM 52 LEERZEICHEN 

2300 GOSURB 9500: REM SETZE DIE BLOECKE 

2997 : 

2998 REM  *# NAECHSTER RATEVERSUCH x 

2999 : 

3000 VTAR VG: HTAB HG 

3010 YW = 1: GOSUB 10000 

3020 IF 7% = - 1 THEN 6200: REM ESC 

3030 IF Z6 < "A" OR Z# > "Z" THEN 4700: REM KEIN RUCHSTABE DES ALFHABETS 

3100 REM UEBERFRUEFE OB DER BUCHSTABE SCHON GERATEN WURDE 

3110 2 = ASE (Z$) - ASC ("A") + 1: REM POSITION IN Us 

3120 IF MID$ (U$,Z,1) < >" " THEN 4600: REM BEREITS BENUTZT 

3130 REM ERNEUERE L$ UND U$ UND DRUCKE AUS 

3140 REM SFEZIELLER FALL DER TEXT FUNKTIONEN BEI ERSTEM ODER LETZTEN BUCHST 


ABEN 
3150 IF Z=1 THENL$ =" "+ RIGHTS (L$,2D:U$ = Z$ + RIGHTS (U8,2 
Ss160 IF Z = 26 THENL$ = LEFT$ (L$,25) + " ":l$ = LEFT$ (U$,25 + 2$ 
s17U IF ZE LAND Z«& 25 THENL$ = LEFT$ (L$,Z2 - 1) +" "+ RIGHTS (L$,26 - 


D):U$ = LEFT$ (U$,Z - 12) + Z$ + RIGHT$ (08,76 - D 

s180 VTAR 25: HTAR HG + 2: FRINT U$ 

3190 HTAB HG: FRINT L$: 

3397 3 

33978 REM  UERERFRUEFE OR DER BUCHSTABE IM WORT VORHANDEN IST 

3399 : 

„400 REM  ERSETZE ALLE VORKOMMENDEN BUCHSTABEN IN C$ {HINWEISE} DES RATEVERS 
UCHS, WENN ES WELCHE GIET 

410 REM ENTSFRECHEND DEN BEGRENZUNGEN DER TEXTFUNETIONEN WIRD C$ RBUCHSTABE 
FUER BUCHSTABE WIEDER AUFGEBAUT 

S420 Zi = "" 

s430 FOR J=1 TO LEN (S5W$) 

3440 Z2$ = MID$ (SW$,J,12)z REM NAECHSTER UNBEKANNTER RUCHSTARE 

450 IF Z$ = 22% THEN Z1$ = Z1$ + Z$: REM EIN UNBEEANNTER BUCHSTABE WIRD GE 


RATEN 

San IF Z6$ <> Z2$ THEN Zi$ = Z1$ + MID$ (C$,J,2): REM FALSCHER VERSUCH, 
BENUTZE INFORMATIONEN FÜUER HINWEISE 

3470 NEXT 

480 IF zZ1$ = C$ THEN 4000: REM _ ANHALTSFUNETE AENDERN SICH NICHT, FALSCH GER 
ATEN 


3490 C$ = Z1$: REM RICHTIG GERATEN:ERNEUERE HINWEISE UND DRUCKE AUS (EINGANG 
FUER RICHTIG GERATENES WORT) 

500 VTAR VC: HTARB HC: FRINT C$; 

3510 GOTD 3000 

3997 3 

3998 REM xx FALSCH GERATEN RX 

3999: 

4000 J = NR 


79 


4010 FOR K = 1 T08: FEM LETZTER BLOCE BLINKT 
4020 I1= NR 

4020 GOSUR 8200 

4040 YF = 2: GOSUB 11400: REM FAUSE 

4050 I1= NR 

4050  GOSUR 8300: REM LDESCHE LETZTEN BLOCH 
4070 NEXT 

4100 NR = NB - 1: REM EIN BLOCK WENIGER 

4110 IFNB » 0 THEN 3000: REM LEBRIGGERLIERENE BLOCHS 
4120 GOTO 5200 

4597: 

4598 REM * FEHLER * 

4599 : 

4600 Z$ = "DIESER BUCHSTÄARBE WURDE SCHON VERSUCHT": 


REM BEREITS GERÄTEN 


4510 GOTO 4900 

4700 Z$ = "NUR A RIS Z YERWENDEN"S FEM KEIN ALFHARBETISCHES ZEICHEN 
4971 : 

49872 REM * DRUCKE FEHLERMELDUNG UND FASUE X 

4873 REM EINGANG: Z$ AUSZUDRÜCKENDER HINWEIS 

4899 : 

4700 WTAR Z2: HTAR 20 - LEN (Z#) / Zı REM MITTELFUNKET 

4710 INVERSE : FRINT Z$ı: NORMAL 

4720 YF = 40: GOSUB 11400: REM FAUSE 

47230 HTAB 1: FRINT LEFT$ (BL$,40): REM LDESCHE FEHLERZEILE 

4730 GÜOTOD 3000: REM NAECHSTER VERSUCH 

43797: 

4779 REM xt RICHTIGER VERSUCH 3% 

4997: 

„000 IF C$ = SW$ THEN S100: REM X RICHTIGER VERSUCH 8% 

sc10 REM RICHTIGER EUCHSTABE ABER WORT NDCH NICHT GERATEN 

sOzD Wi = LuWZ = 1:W5 = O:W4 = 10:WS = — 1:Wa = S0:HW? = Zr GOSUR 13400 
5320 FOR K = 1 TO 15 

040 1= INT NR RND (1) + 1: REM NEHME EINEN ZUFAELLIGEN BLOCK 
=ouo  GOSUB 2300: REM UND WECHSLE DIE FARBE 

Soä0 NEXT 

„070 GOTD Z000: REM NAECHSTER VERSUCH 

si0ö WD = 100: 7% = GSW$: GOSUR 17300: REM * UNBEEANNTES WORT GEFUNDEN X 
„ıilO FÜRE = 1 T0 4 

“120 FOR J= 1 TO NB: GOSUR B400: NEXT 

„ll FOR J = 1 TO NB: GSOSUR 8300: NEXT 

=140 NEXT 

„150 GOTO 5000: REM NOCH EINMAL? 


9797 3 


798 


37977: 


Köco 
KuLO 
Ku2O 
sono 
Hoa0 
5100 
Ssiln 
120 


1977: 


Hirn 


6199 ; 


SON 
210 
A2zü 
6777 
6798 
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YF$ = us [2 . 


REM x% NOCH EINMAL? IH 
FOKE 24,22: HOME x: REM  LÜOESCHE DIE UNTEREN 2 ZEILEN 
VTAR 24: HTAB 1 


PRINT "NOCH EINMAL SFIELEN (I OR NIT": 


GOSUR 11200: REM J/N 


UN Z%4 + 2 GOTO 6100, 6000, 2000,65100: REM 
FRINT : FRINT 


ESC,UNGUELTIG, J, N 


FRINT "WIELEN DANKE FUER’S MITSFIELEN."; 


END 


KEM $ HOERE AUF X 

VTAR 22: HTRB HC - 14 

INVERSE : FRINT "DAS WORD WAR : 
GOTO 5000 


REM % KEINE WEITEREN WORTE % 


"»SW$: NORMAL 


4757 0: 


“on 
310 
Agzo 


5850 


7997 5; 


Far 


HOME 

FRINT 

FRINT "WIR HABEN ALLE UNBEEANNTEN WOERTER BENUTZT" 
GSOTO 5100 


REM xx BLOCH FROZEDUREN X 


7997: 


Ron 


And 


ao 
SUNG 
So40 
Rei Kat) i 


ainn 


2170 
g180 
gie 
3290 
gz10 
SE2G 
HERD 
un 
SF10 
az KR 


3330 


SR4D 


N 


Tr: 
Int 


FOKE 24,20: HOME : REM ** SETZE BLOCES AN STELLE #%% (LOESCHE TEXTZEILE 
} 
_ SOLUR= Ds FOR Z = ET TO FF: HLIN 0,329 AT Z: NEXT =: REM  LOESCHE BLOCK RB 


FOR. R = I TO NR 
GOSUR 100: REM LOEALISIERE UND DRUCEE NAECHSTEN BLCOK AUS 


INT (fan - BH} & RND (ill REM %* LOKAÄLISTERE UND DRUCKE BLOCK LUNT 
RHALE DES TITELS AUS % 

REM] = BLOCH # 

REM DER BLOCK DARF NICHT ZU NAHE AN DEN BLOECKEN 12... 1-1 SEIN 


aW= INT ({37-EWV - ET KO RND (DI + BT 


ir = 1 THEN 8210: REM ERSTER BLOCH LOKALISIERT 

FÜR Z=1T7T0 1-1 

IF ABS SBEZIZ,O - HI > BHOR ABS (BEXIZ, DD - VI 5 BV THEN 98200: REM 
NICHT ZU NAHE 
H= INT i(40 - EH} % RAND (13): REM MACHE NEUE LOEALTSIERUNG 
v= INT (2370 - EV- ET KO RND (13) + RT 

2= 0: REM UND UEBERFRÜEFE WIEDER OR ZU NAHE 

NEXT 
BE%40,0) = Hi REM H-FOS WON BLOCH J 

BEZ(I, 1 = Ye REM W-FOS 

REM DBRÜCKEE EINEN BLCOE AUS 

m = INT i15 & END (1) + 1:2 REM %* DRUCKE EINEN BLOCK % 

REM J= BLOCH # 

COLOR= C: REM FESTER BLOCE{EINSANG FÜER LOESCHEN EINES BLOCES) 
H= BEK(J,0): REM H-FOS 


Yv= BEZLT, 1: REM O9 V-FOS 

IF SChRNGH,VI = DE THEN Dior REM NEHME ANDERE FARBE WENN GLEICHE WIE 
EVOR 

FÜR Z = 1 TU EH 

WLINVV+EVY- 1PATH+ ZI - 1] 


NEXT 
RETURN 


u = Or: BEM * LOESCHE EINEN BLOCH % 


S4F0 
S500 
510 


Gen 
De par Pi NR) 


8570 
g5ao 


a rt 


2010 


FOZU 


N 


oa 


REM J = BLOCK # 

GOTO 8320: REM LESE CODE 
J= INTAÄNR &k RAND zur + I: REM % BEWEGE EINEN BLOCK x 

iM LOESCHE EINEN ZUFÄLLIGEN BLOCH, VEBERSCHREIBE BLOCE MIT DEM LETZTE 
BLOCH. 

REM ANN LOKALITOSTERE UND DRUCKE EINEN NEUEN BLOCH AUS 

GOSLR 8400: REM LDESCHE DEN GEWAEHLTEN BLOCH 
REYGT,ÜN = EBKAINE,Ol: REM UEBERSCHREIBE BLOCH J MIT DEM LETZTEN BLOCK 
BEAT, 1 = BEKINE, I 


Y En N T 


GUT 9100: REM LOFALTSIERE UND DRÜCEE NEUEN BLOCH 
REM xx INFORMATIONEN %% 
TEXT : HOME 


FRINT "BLOCKOUT IST EIN SPIEL ZUM RATEN VON WOERTERN. " 
FRINT 
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030 PRINT 
9040 FRINT "DER COMFUTER WAEHLT EIN UNBEEANNTES " 
9050 FRINT "WORT UND DRUCKT EINEN FUNET FUER JEDEN" 


P0&a FRINT "BUCHSTABEN AUS. (EIN 4-BUCHSTABEN WORT ERHAELT DESHALR 5 FUNKTE. 


yu 
Fa70 PRINT 

F080  FRINT "VERSUCHE DIE RBUCHSTAREN ZU ERRATEN. " 

F570 FRINT 

9100 FRINT "JEDER RICHTIGE BUCHSTABE WIRD IN DEM" 
9110 FRINT "UNBEKANNTEN WORT GEZEIGT. BEI JEDEM " 


120 PRINT "FALSCHEN VERSUCH VERSCHWINDET EINER DER BLOCKS VOM RILDSCHIRM." 


130 FRINT 


7140 FRINT "WIR BEGINNEN MIT "NG; " BLOCKS. VERSUCHE DAS UNBEEAN 


NTE WORT ZU RATEN," 
9150 PRINT "BEVOR ALLE BLOCEKS VERSCHWUNDEN SIND. 
97160 FRINT 
170 FRINT "DRUECEE "s: INMVYERSE 3 FRINT "ESC";: HORMAL = FRIM 
9180 FRINI 
F170  FRINT "MIT RETURN GEHT ES WETTER. .."; 
7200  GOSUR 11500: REM WARTE AUF TASTENDRUGCE 
210 IF 2%= - 1 THEN &lolz REM ESC 
7300 GR : HOME : REM TITEL. 


" FUER SFIELENDE. " 


7310 X$ = "BLOCK"SXCO) = IMT GN ORND {DI + 12XVY = 0: GOSUR 15300: REM 


F32ZO X = "OUT"SXY = XV + XB + 1: GOSUR 15300 
9330 BT = XY + XR + 1: REM ORERSTER ELOÖCH BEREICH 
40 RETURN 
7497 ; 
9498 REM *x SETZE BLOCES Ik 
94997 : 
7500 NE = NG: REM ANZAHL DER BLOECHKE 
JE10 GOSUR Büno: REM SET UF BLOCES 
FS20  YTAR WG: HTAR HG - 7: FRINT "RATE 2"; 
S5S2A0  VTAR VE: HTAR HC: FRINT C#$ 
7540 FRINT 
9520 FRINT "BENUTZT: "U$ 
9560 PRINT "REST: "L$: 
7.70 RETURM 
S0977 ; 
0978 REM ı%£ WOERTER, WERDEN MIT "END" REENDET 
SOF997 ; 
1000 DATA "STRATEGIE", "QUADER"  „"AERGERN "."ZITTERFAFFEL " 
„1010 DATA "TABLETTE", "FLECHTE", "ZAEHNE" „ "ERSTAUNEN" 
„1020 DATA "RATESPTIEL." , "EINLAGE" , "VERAENDERN" , "SCHMEICHLER” 
S1030 DATA "UNENDITCH" , "FIANISSIMO", "FUSSBALLTOR", "GRAZU" 
„1040 DATA "SAUERSTOFF" "VERWELEKEN" , "RBINSENWEISHEIT" "GEHIRN" 
1050 DATA "TAFFERKEIT" , "BOHRER", "FFERD" 
„1090 DATA "END" 
HOO0 : 
Ka0lO REM % COFYRIGHT 1981 Bir HOWARD FRANHLIN, FALO ALTO, CA X 
SO020 : 


TITLE 


Verbinden Sie dieses Programm mit EINGABE EINHEIT, KLANG EINHEIT 
(löschen Sie die Zeilen 18000 bis 19999) und BILD EINHEIT. Speichern Sie 


es als BLOCKOUT und tippen Sie RUN. 


BLOCKOUT nutzt die Möglichkeiten der LO-RES-Grafik. Die Wörter wer- 
den aus einer Auflistung entnommen, die in den DATA-Anweisungen von 
Zeile 51000 bis 51090 niedergeschrieben ist. Es können Wörter geändert 
und neue Ausdrücke hinzugefügt werden. Die Anzahl der zur Auswahl stehen- 
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den Wörter beträgt maximal 50 (siehe Zeile 1000). In Zeile 51090 müssen 
wir ein Zeichen (flag) setzen. Dieses Zeichen teilt dem Rechner mit, daß 
keine weiteren Wörter folgen. In der hier vorgestellten Form sind 10 Fehlver- 
suche erlaubt. 


Frage 5: Wie ist das Programm zu verändern, damit maximal sechs Fehl- 
versuche erlaubt sınd? 


Beachten Sie, daß BLOCKOUT die ESC-Funktion in der gleichen Art ver- 
wendet, wie dies im letzten Kapitel vereinbart wurde. Mit ESC und an- 
schließend RETURN kann der Benutzer das Spiel beenden und das unbe- 
kannte Wort sehen. Die farbigen Quadrate werden zufällig auf dem Bild- 
schirm verteilt. Auch die Farben werden per Zufallsfunktion gewählt. 


Frage 6: Wie müssen Sie das Programm ändern, damit alle Quadrate die 
Farbe Orange erhalten. 





Schauen wir uns den Programmteil, beginnend mit Zeile 8100 an. Diese 
Prozedur überprüft sorgfältig den Abstand zwischen den einzelnen Farbqua- 
draten, die nicht zu nahe beisammen plaziert werden sollten, damit eine an- 
sprechende grafische Bildgestaltung erreicht wird. 

Eine falsche Antwort bewirkt, daß eines der Farbquadrate einige Male blinkt 
und anschließend verschwindet. 


Frage 7: Welcher Programmteil ruft das Verschwinden der Farbquadrate 
hervor? 





In vielen grafischen Spielen wird das Vier-Zeilen-Textfenster am unteren 
Bildschirmrand nicht optimal ausgenutzt. Oft fallen wichtige Fragen aus dem 
sichtbaren Bereich heraus. Wichtige Informationen für den Spieler, der 
vielleicht vergessen hat, was zu tun ist, gehen verloren. 

Bei BLOCKOUT bleiben alle Anhaltspunkte, wıe bereits benutzte Buchsta- 
ben und noch verbleibende Buchstaben, sichtbar. Nur die Frage wir erneuert. 
Dies ist eine Möglichkeit, das Textfenster effektiv zu nutzen. Allgemein 
sollte das grafische Bild so gestaltet werden, daß alle wichtigen Bestandteile 
während des ganzen Spiels auf dem Bildschirm sichtbar bleiben. 

Haben Sie bemerkt, daß beim Spielen von BLOCKOUT jede richtige Ant- 
wort ein akustisches Signal hervorruft? Bei falschen Antworten ändert sich 
zwar der Bildschirm, aber es ertönt kein akustisches Signal. Das Verstärken 
richtiger Antworten und, wenn möglich, das Ignorieren falscher Antworten 
ist eine empfehlenswerte Technik für das Schreiben von Lehr- und Lernpro- 
grammen. 


Schauen Sie sich sorgfältig den Programmteil TITELBILD ab Zeile 1400 an. 
Man könnte meinen, die grafischen Aktivitäten auf dem Bildschirm erforder- 
ten viele Programmbefehle. Da unser Programm BILD EINHEIT jedoch so 
geschickt konstruiert ist, benötigen wir nur wenig Programmieraufwand zur 
Herstellung eines attraktiven Bildes. Schauen Sie sich auch die anderen Spiel- 
programme dieses Buches an. Beachten Sie, wie wenig Programmierzeilen 
für die Herstellung eines schönen Titelbildes erforderlich sind! 
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Match 


MATCH ist ein Ein-Personen-Spiel, das auch mehrere Personen abwechselnd 
spielen können. Das Ziel des Spiels ist es, zusammengehörige Wortpaare zu 
bilden. Der Spieler kann jederzeit das Spiel durch Drücken von ESCRETURN 
beenden. Als wir MATCH entworfen haben, entschieden wir uns dafür, nach 
Beendigung des Spiels die richtigen Antworten nicht anzugeben. Dies ist 
auch nicht notwendig, denn durch Ausscheiden der falschen Wörter kann 
der Spieler immer die richtige Lösung finden. Eine der positiven Folgen der 
ESC-Vereinbarung in EINGABE EINHEIT ist die ständige Kontrolle über die 
Funktion der ESC-Taste. 

Hier haben wir die Funktion so festgelegt, daß keine richtigen Ergebnisse ge- 
zeigt werden: 


10 REM ... MATCH-EINGABE KLANG BILD 


11: 

997: 

778 REM  x*%k INITIALISIERUNG #4 
99797: 

1000 DIM L$150) ,R$ (50) ,L4(50),R% (30) 
1010 BL$ = "" 


1020 FOR J= 1 TO 40 

1030 BL$ = BL$ + " " 

1040 NEXT 

1100 Z = 51000; GOSUR 19000: REM SETZE READ DATA ZEIGER 

1110 READ HL,HR,C$ 

1120 Z=HR - HL - LEN (CC): IF Z% Z THEN HOME : PRINT "DAS VERRBINDUNGSWORT 
IST ZU LANG": END 

1130 IFZ/2K& 5 INT (Z 7/2 THENHR = HR —- 1: REM GLEICHE ZAHL VON LEER 
STELLEN AUF BEIDEN SEITEN 

1140 HC = INT {HL + HR) 72 

1150 VO = 

1150 VS = 

1200 NF = 0: REM INITIALISIERE WORTFAARE 

1210 READ 7$,71$ 

zz0 IF Z&$ = "END" OR Zi$ = "END" THEN 1300: REM KEINE WEITEREN WORTFAARE 

1230 NF= NF + 1: REM WEITERE WORTFAARE 

1240 L$E({NF) = 7Z$ 

250 R${NF} = Z1$ 

12580 GOTO 1210 

1300 NR = 8: REM 8 REIHEN 

1307 3 

1399 REM % TITELRILD % 

1399: 

1300 GR x MOME ; COLOR= 15: GOSUR 15000: REM GELRER HINTERGRUND 

1410 %$ "MATCH":XV = 10: XCi1l) = 2 GOSUR 15300 

1420 X = "W" + CHRS (1 + CHR$ (2) + "CH"SXV = 40 - XV - XR:XCtl) = 7: GOSUR 
300: REM SFIEGELRBILD 

1450 WTAR 23: HTAB 8: FRINT "MIT RETURN GEHT ES WEITER.."; 

1440 GOSUR 11500: REM WARTE AUF TASTENDRUCK 

1450 IF Z4= - 1 THEN END : REM ESC 

725 GOSUB 9000: REM INFORMATIONEN 

19977: 

979 REM *k INITIALISIERUNG FUER NAECHSTES SFIEL %% 

19779 : 

2000 FOR I = 1 TO NP 


rip) 
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Z010 LY{IJ) = - Jr: REM FLAG FUER ANFANGSAUSDRUCK 
ZO2C NEXT 

Z030 N = NFı REM VERTAUSCHE ALLE FAARE 

2040 GOSUR 2900 

2050 N = NR: REM BENUTZE ERSTE NR 

Z060 FOR J=1TON 

2070 RAIN = LYDE REM COPY TO RACL,.2.,NR) 

z0s0 NEXT 

2070 GOSUR 2900: REM VERTAUSCHE ALLE FAARE DER LINKEN SEITE 
Z200  GOSUR 9500: REM INITIALISIERE BILDSCHIRMAUSDRUCK 
2210 GOTO 3000 

ZR00 FOR Z=N TO 2 STEF - 1: REM VERTAUSCHE LA (1,...,N) 
2010 74% = 7% RND (ii +1 

220 Zi = LAIZ 

ZrED LYIZI = LA CZH 

Z40 LAIZEY = ZI 

2750 NEXT 

29650 RETURN 

2997 3: 

29798 REM 4% WAEHLE NAECHSTES FAAR X%k 

29997 : 

sooo FOR Z=1 TON 

Ss010 VTAR VO +VS X (NR - N + Ds REM MACHE MENUE 
3020 HTAB HC: FRINT Z; 

3030 NEXT 

s100 QPF$ = "WAEHLE EIN WORT DER LINKEN SEITE: " 
3110 GOSUR 3500 

3120 Pi = J 

3130  INVERSE : REM DRUCHKE LINKEN TEXT INVERS AUS 
3140 GOSUR 800 

3150 NORMAL 

s200 QF$ = "NUN WAEHLE EIN WORT DER RECHTEN SEITE: " 
3210  GOSUR 3500 

Sszz0 FZ = J 

A230 INVERSE : REM DRUCKE RECHTEN TEXT INVERS AUS 
3240 GÜSUB 8800 

3250 NORMAL 

=3s00 FOR Z = 1 TON: REM LOESCHE MENUE 

s210 VTAR VO +VS X (NR - N + DZ: REM V-FOS 

320 HTAR HC: REM H-FOS 

3aa0  FRINT " "; 

3340 NEXT 

400 IF LAFI) 5 RACE) THEN 4000: REM FALSCHE KOMBINATION 
5410 GOTO 5000: REM RICHTIG 

491 3 

3492 REM %* ALLGEMEINER CODE FUER WAHL EINES TEXTES 
3493 REM EINGANG: OF$ SOFORT 

494 REM AUSGANG:  J WAHL 

3499 ; 

A500 VTAR 22: HTAR 1: FRINT OF$; 

3510 YL = 1:YH = NıYW = 1: GOSUB 11000 

3520 IF Z%= - 1 THEN 8100 

SSao IF 74 = GO THEN 3900: REM UNGUELTIG 
ss4o01=7 

A550 HTARB 1: FRINT LEFT$ (BL$,39; 

So&0 RETURN 

=g0N 90$ = "WAEHLE EINE ZAHL ZWISCHEN 1 UND " + STR& (N 
agl0 F = 80 

3820  GOSUR 3700 

„830 GOTO 3500: REM VERSUCHE NOCH EINMAL 

Sgrl 
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892 
3893 
9974 
3897 
3900 
„910 
3920 
39730 
940 
997 
998 
3999 
2u0o 
4010 
4020 
2030 
4040 
4uS0 
4200 
4210 
4220 
24400 
4310 
4420 
4450 
4,0 


REM x DRUCKE HINWEIS ZEILE X 
REM EINGANG: Q$ AUSZUDRUCKENDER TEXT. 
REM P FAUSE 


VTAB 24: HTAR 20 - INT C LEN (086 / 2 
INVERSE : PRINT Q$;: NORMAL 
YF = F: GOSUR 11400: REM FAUSE 


HTAR 1: FRINT LEFT$ (BL$,39; 

RETURN 

REM %k FALSCHE KOMBINATION XX 
YP= 10 

IF Fi = FZ THEN 4400: REM LINES, RECHTS VERSCHIEBEN 

IF FZ & F1 THEN 4200: REM  BEWEGE ERST RECHTE SEITE NACH UNTEN 
UD = 1: REM BEWEGE LINEE SEITE EINS NACH UNTEN 


GOSUR BOOO 

GOTO 4010 
UD = 1: REM BEWEGE RECHTE SEITE EINS NACH UNTEN 

GOSLR 8200 

GOTO 4010 

IFFi= N THEN 4400: REM  LINEFE,RECHTE SEITE AM RODEN 
UD = 1: REM BEWEGE BEIDE SEITEN 

suUSUR 8400 

GOTD 4400 
WI = WE = WE = O:W4 = 10:WS = 1:W7 = 1: GOSUR 13400 


4610 0% = "4% FALSCHE KOMBINATION X" 

4620 F = 60 

4630 GOSUR 3900 

4640 J = Fi 

4650 GÜSUR 8600: REM  DRUCKE NORMAL 

4560 GOSUB 8800 

4670 GOTO 3000 

4997 ı 

4998 REM  %% RICHTIGE KOMBINATION X% 

4999 : 

SO00 YF = 10 

5010 IF Fi = F?2 THEN 5400: REM  LINKE„RECHTE SEITE VERSCHIEBEN 
5020 IF F2 > Pi THEN 5200: REM BEWEGE RECHTE SEITE ZUERST 
5036 UD = - 1: REM BEWEGE LINKE SEITE 

5040 GOSUR 8000 

5050 GOTO 5010 

5200 UD = - 1: REM  BEWEGE RECHTE SEITE 

5210 SOSUB 8200 

5220 6070 5010 

5400 IF Fi = 1 THEN 5600:LINKE,RECHTESEITEOBEN 

5410 UD = - 1: REM MOVE BOTH SIDES 

5420 GÜSUR 8400 

5430 G0TO 5400 

5600 WI = O:U2 = SWT = O:W4 = 10:W5 = - 1:W7 = 1: GOSUR 13400 
5610 VTAB VO + VS X (NR - N + 1): REM LEFT,RIGHT ON TOP LINE 
5620 HTAR HC - INT (LEN (C#) / 2) 

5630 INVERSE : FRINT C$;: NORMAL 

5640 7% = L${LY(1)) 


Rate te 


=-7o0 


3710 
5720 
5730 


ri. 
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BEWEGE WOERTER ZU 


21$ = R$S{RACDD) 
FORT =HL +1 TO HC - INT CLEN <C#) / 2 - 1: REM 

SAMMEN 
HTAB I - LEN (Z#3 - 1: FRINT " "32 INVERSE : FRINT Z$:: NORMAL 
HTAR HR + HL - Js INVERSE : FRINT Zi%;: NORMAL : FRINT " "; 
NEXT 


900 Q$ = "DAS IST RICHTIG! !"" 

s810 F = &0 

S820  GOSUR 3900 

s830 N=N - I: REM EIN FAAR WENIGER 

s840 IFN = 0 THEN 5900: REM ALLE GEFUNDEN 
sas0 FOR J= 1 TON: REM BEWEGE LISTE ARWAERTS 
sSa0 L%ID = LAY] + DD 

sg7O RAUM = R%ilI + 1) 

Ss880 NEXT 

sg90  GOTO 000 

we) VTAR Zi: HTAR 7: FRINT "DU HAST ALLE WORTPAARE GEFUNDEN! !" 
5997: 

978 REM %% NOCHMAL? x 

3797: 

8000 HTAR 1: VTAB 24 

6015 FRINT "NOCH EINMAL (JOR N? "; 

8020  GOSUR 11200: REM J/N 

030 ON ZA + 2 GOTO 6100,65000, 2000, 6100: REM ESC„UNGUELTIG,J,N 
#100 FRINT : FRINT 

sllü FRINT "VIELEN DANK FUER’S MITSFIELEN."; 
8120 END 

7997 : 

7998 REM %% BEWEGUNGS FROZEDUREN X% 

7999: 

goo0 Z = LA{Fi): REM BEWEGE LINEE SEITE AUF/AR 
8010 REM UD = -1 AUF, +1 AB 

go20 LAIFND = LAIFI + UD) 

8030 LA{Fl + UD) = Z 

8100 J = Fl: REM DRUCKE NEUES LINKES J 

8110 GOSUR 8700: REM LEERZEICHEN 

8120 GOSUR 8500: REM DANN DRUCKE 

8120 J= Fi + UbD:Fi = Js REM BEWEGE WAHL 
8140 GOSUR 8700: REM LEERZEICHEN 

8150  TINVERSE 

8150 GOSUR 8500: REM DRUCKE INVERS 

8170 NORMAL 

8180  GOSUR 11400: REM FAUSE 

8190 RETURN 

BZO0 Z = RALF): REM BEWEGE RECHTE SEITE AUF/AR 
8210 REM UD = -1 AUF, +1 AR 

BZZO RYIFDI = RZ(FZ + UD) 

BFEO RYIF2 + UD = 7 

a300 J= FZ: REM DRUCKE NEUES RECHTES J 
83210 GOSUR 8900: REM LEERZEICHEN 

8320 GOSUR 9800: REM DANN DRUCKE 

8330 J = F2 + UD:FZ = Jr REM BEWEGE WAHL 
8340 GOSUR 8900: REM LEERZEICHEN 

8350  INVERSE 

8550  GÜOSUR 98800: REM DANN DRUCHE INVERS 
8370 NORMAL 

8380 GOSUB 11400: REM FAUSE 

B370 RETURN 

8400 Z = L%(Fi): REM BEWEGE BEIDE SEITEN 
8410 REM UD= -1 AUF, +1 AR 

8470 LZiFI) = LA(FI + UD 

8430 LY(Fl + UD) = 72 

8440 Z = R%(F1) 

8450 RZ (Fi) = RY(Fl + UD) 

8460 RY(FI + UDI = Z 

8470 4= Fi 


8480 
8470 
9500 
8510 
320 
8530 
8540 
98550 
60 
85370 
8580 
3370 
98597 
8578 


8599 : 


3500 
8610 
8420 
8700 
8710 
8800 
8810 
ga20 
8930 
2940 
IOO 
810 
8997 
8978 


GOSUR 
GOSUR 
GOSUR 
GOSUR 
J= Pl 
GOSUB 
GOSUR 
INVER 
GOSUR 
GOSUR 
NORMA 
GOTO 


REM 


2 =L 
HTAR 
GOTO 

2$ = 
GOTO 

Z$ =R 
HTAR 
VTAR 
FRINT 
RETUR 

2 = 
GOTO 


REM 


8997 : 


Foo 
9010 
FO20 
FOSO 
OO4O 
7050 
9080 
F9a70 
2080 
nlel-Te) 
9100 
F11o 
9120 
9130 


9140 
9150 
7160 
9170 
0180 
9497 
7498 
9499 
9500 
9510 
9520 
530 
9540 
eZ30 
II80 
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TEXT : 


VTAR 

HTAR 

FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 
VTAR 

PRINT 


DE." 


FRINT 
FRINT 
GOSUR 
IF ZA 
RETUR 
REM 


HOME 


HTAR HC - 2: 


FOR K. 
Js 
IF L% 


LIU = 


GOSUR 


INT {NR % 


8700 
E00 
SANO 
1=1=18]8) 
+ UD:Pi = Jr REM 
8700 
Fr7OO 
SE 

= {=}8]6) 
g800 
L 
11400: 


REWEGE REIHE 


REM FAUSE 
%* DRUCKE FROZEDUREN % 


$(L%(J2): REM 

HL - LEN (Z$): 

8820 

LEFT$ {BL$,HL — 1): REM 

8610 

$(RA(D)I: REM 

HR: REM H-FOS 

VO + VS X AÄNR-N + Di: 
7$; 

N 

LEFT$ {BL$,40 -— HR}: REM 

8810 


REM H-FOS 


DRUCHKE RECHTE 


REM 


*X INFORMATIONEN #% 


HOME 
4 


14: FRINT "RR MATCH KR" 


"IN DIESEM SFIEL WOLLEN WIR WORTFAARE 


"WELCHES WORT AUF DER LINKEN SEITE" 
"FASST ZU EINEM WORT AUF DER FECHTEN 
"VERBINDE DIE WOERTER DURCH ANGABE 


"WENN DU ALLE WORTFAARE GEFUNDEN HAST, 
eiR 


"DRUECEE "5: 


INVERSE » FRINT "ESC";: 


"MIT RETURN GEHT ES WEITER.."; 
11500: REM WARTE AUF TASTENDRUCH 
= - 1 THEN d100: REM ESC 
N 


4 INITIALISIERE AUSDRUCH X 


INVERSE : 
= 1 TO NR: REM 


FRINT "VERRINDE": 
RND (DI + 1: 
> O THEN 9530: REM 
- LAD: REM FLAG WENN GEDRUCKT 
Band: REM DRUCKE LINKES FAAR 


REM 
(DM 


LINGANG FUER LINKEN 


NORMAL : 


NORMAL 

DRUCKE FAARE ZEFAELLIG AUS 

DRUCKE NEUES LINKES FAAR 
SCHON AUSGEDRUCKT. VERSUCHE NOCHMAL 


DRUCHKEE LINEE SEITE IN REIHE J 


LEERZEICHEN LINKER TEXT IN REIHE J 


SEITE IN REIHE J 


rmvT 
IX 


LEERZEICHEN RECHTER TEXT IN REIHE J 


BILDEN." 


SEITE?" 


IHRER NUMMERN. " 


IST DAS SPIEL GEWONNEN." 


FRINT " FÜER SPIELEN 


570 I= INT 


{NR X FRND (12) + 15 REM DRUCKE NEUES RECHTES PAAR 


580 IF RAU > 0 THEN 9570: REM SCHON GEDRUCKT, VERSUCHE NOCHMAL 


F57O0 RAID = 


- RA{J}: REM FLAG WENN GEDRLICKT 


F76H0 GOSUR 8800: REM DDRUCHKE RECHTES FAAR 


F6in NEXT 
P&20 RETURN 
zu100 DATA 
20110 DATA 
20120 DATA 
20130 DATA 
20140 DATA 
20150 DATA 
20160 DATA 
20170 DATA 
20180 DATA 
20200 DATA 
20210 DATA 
20220 DATA 
20230 DATA 
20240 DATA 
20250 DATA 
20260 DATA 
20270 DATA 
20280 DATA 
49997 5 
A9FTA REM 
397979: 
„o0b00 REM 
„soolo REM 
50020 REM 
süülao REM 
Soo40 REM 
SOaG0 REM 
„0060 REM 


ee Fi c A 
EHI REM 
un; Fast Erd 
BR URS, ii I MORE: 
I: N, ra ui 
SuRTD REM 





solnn REM 
saliD REM 
Soiz0 REM 
suia0 REM 
solao REM 
0970: 

FT: 

S09F2 REM 


50997 ; 


Li 
0794 REM 
77 M 


es] 


nenn m 
“zZ 


re 
TG 


= :m;cı 
oT? 


7 
ech 


Al 


S0F98 REM 
30999 ; 
„locc DATA 
S1010 DATA 
RUHIG" 
51020 DATA 


LE FF BEI" 


aaO DATA 


3,7: REM UMGEDREHTES A 
"4 j" 

"4 j" 

"ı11ıı" 

"4 y" 

4 j" 

gg 

u q" 

_g" 

3,7: REM UMGEDREHTES T 
u p" 

n q" 

u y" 

u 1" 

u f" 

u q" 

"lm" 

ug“ 


*X% VARIABLEN VEREINBÄRUNGEN %% 


LEN LINKER TEXT DES FAARES {RECHTS ANGEFASST) 
R${J} RECHTER TEXT DES FAARES (LINKS ANSEFASST) 
LAT LINKER TEXT IN J-TER REIHE 

RAtl} RECHTER TEXT IN J-TER REIHE 

NF ZAHL DER FAARE 

NR ZAHL DER REIHEN 

N ZEHL DER LERRIGEN REIHEN 

HL. H-FÜS + 1 DES RECHTEN RANDES DER LINEEN SFALTE 
HR 4-Püs DES LINKEN RANBES DER RECHTEN SPALTE 


HU H-Püs DER MITTE 

Yin W-FÜS WON "REIHE 0" 

v5 ZAHL DER VERTIEELEN LEERSTELLEN ZWISCHEN DEN REIHEN 
BL$ EERZEICHEN 

ri ERSTE WAHL. 

Fz ZWEITE WAHL. 


#% KORTFAARE DATEN BEGINNEN IN ZEILE S10on xx 


H-FOS + 1 DES RECHTEN RANDES DER LINKEN SPALTE 
H-FOS DES LINEEN RANDES DER RECHTEN SPALTE 
VERBINDUNSSWORT (MUSS ZWISCHEN DIE SPALTEN FASSEN) 
FARBE 1,22. , HF 

END, END 


Me EDELITET" 
"RESIGNATIONT, "AUFGABE" „VERAVITATION", "SCHWERKRAFT" "STILL" 5" 


"HEETISCH", "TUREULENT", "HEISSFÜORN", "HITZKOFF", "PERFEKT" . "FEH 


"TARTLOS" a UNHOEFLTICHT", RRANCHE"  5"BERUFSZWEIG", "MONARCH", 


HER ER SICHER R “ 


„ill DATA 


TEIDIGEN" 


"TEENAGER", "JUGENDLICHER" "DISTANZ", "ABSTAND", "ABWEHREN" "VER 
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„1050 DATA "ANGREIFEN", "STUERMEN", "SCHWINGEN" „"VIBRIEREN", "VERTIKAL", "SEN 


KRECHT" 

51060 DATA "HORIZONTAL", "WAAGERECHT", "BELEGEN", "BEWEISEN" , "KALKULIEREN", "RE 
CHNEN" 

31070 DATA "WAGNIS", "RISIKO", "WEBETARISCH", "PFLANZLICH" „"DREHUNG" "ROT 
ATIDON" 

51080 DATA — "VERDAMPFEN", "VERDUNSTEN", "EOSTBAR", "WERTVOLL", "NUETZLICH", "BRAU 
CHBAR" 
S1CF0 DATA "UNSINN", "NONGENS", "REGEL"  , "NORM" ‚ "AUFSTEHEN" , "ERHEBEN 
1100 DATA "AUFSTAND" „ "REVOLUTION" "OZEAN" "MEER" „"INSEL" „"EILAND" 
51110 DATA  "VERWUNDET" "VERLETZT"  „"FRUEFEN" „"ERPROBEN", "SPION" e 

ABENT" 
51120 DATA "HUENE" „"RIESE" „"GESETZLICH", "LEGAL"  „"THESE"  "LEITSATZ" 
S1130 DATA "MOTIY" „"ABSICHT"  , "COMPUTER", "RECHNER", "POET" "DICHTE 


u 
Bay 


„197F DATA END", "END" 
m 1810 BIR EEG 
„odin REM X COPYRIGHT 1981 BY HOWARD FRANELIN, FALO ALTO, CA X 


SKOOED 3 


Verbinden Sie das Programm mit EINGABE EINHEIT, KLANG EINHEIT 
(löschen Sie die Zeilen 18000 bis 18999) und BILD EINHEIT. Speichern Sie 
es als MATCH und starten Sie es. 


MATCH benutzt das ganze Bildschirmformat und die inverse Darstellung. 
Obwohl es auf der Darstellung von Texten basiert, ıst der Bildschirmaus- 
druck sehr schön anzuschauen. MATCH wurde so entworfen, daß es dem 
Spieler möglichst alle nötigen Hilfen gibt. Die wichtigen Informationen blei- 
ben jederzeit sichtbar. Die Schrift bleibt immer innerhalb des Textfensters. 
Schließlich benutzt das Programm sehr raffinierte Techniken, um Texte zu 
verschieben. Dadurch ergibt sich eine lebendige und abwechslungsreiche 
Textgestaltung. 


MATCH ist ein nettes Spiel und ein gutes Beispiel für Lernprogramme, die 
auch Töne und Klänge zur Unterstützung verwenden. Es werden hilfreiche 
Fehlermeldungen gegeben. Die Reaktion auf die richtigen Antworten ist viel 
stärker und deutlicher als auf falsche. Die gefundenen Wortpaare bleiben wei- 
ter sichtbar und heben so die richtigen Antworten hervor. (Falsche Wort- 
paare rutschen zum unteren Bildschirmrand.) | 


MATCH nutzt den Bildschirm in sehr effizienter Weise. Das zentrale Bild ist 
sowohl attraktiv anzusehen als auch platzsparend. Die Benutzung der inversen 
Textdarstellung hebt richtige Antworten deutlicher hervor. Das Bewegen der 
Textblöcke richtet die Aufmerksamkeit des Spielers auf den Monitor. Das 
Bewegen der zu verbindenden Wörter und das anschließende Zusammen- 
fassen an einer Stelle besitzt einen größeren pädagogischen Wert als das Ver- 
binden der richtigen Wortpaare durch Linien (z.B. in Lehrbüchern). 


Ein weiterer Vorzug von MATCH ist folgender: Die Liste der zur Verfügung 
stehenden Wörter wird kontinuierlich durchnumeriert. Dadurch kann die 
Zahl der noch verbleibenden Wörter wiedergegeben werden. Nach jedem 
neuen Start des Programms werden die Wortpaare zufällig aus den DATA- 
Anweisungen entnommen und in einer veränderten Reihenfolge präsentiert. 
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Durch Änderung des Inhalts der DATA-Anweisungen kann MATCH leicht 
erweitert werden. Der größte Vorteil dieses Programms liegt jedoch in den 
vielfältigen Möglichkeiten dieses Spiels. Es können nicht nur sinnverwandte 
Wörter benutzt werden, sondern beliebige Texte oder auch Zahlen. Beachten 
Sie, daß der verbindende Text (in diesem Fall “‘BEDEUTET“) in der DATA- 
Anweisung in Zeile 51000 steht. Wir können beliebige Kombinationen ein- 
setzen: Länder und ihre Hauptstädte, Gleichungen und ıhre Lösungen, 
Vokabeln in Englisch und Deutsch usw. In jedem Fall muß eın entsprechen- 
der Verbindungstext eingesetzt werden. 


Wir zeigen zwei Beispiele, wie der Bildschirm nach Spielende aussehen kann: 


ITALIEN HAUPTSTADT ROM 
FRANKREICH HAUPTSTADT PARIS 
ENGLAND HAUPTSTADT LONDON 
SPANIEN HAUPTSTADT MADRID 
SCHWEIZ HAUPTSTADT BERN 
BELGIEN HAUPTSTADT BRÜESSEL 
SCHWEDEN HAUPTSTADT STOCKHOLM 
FOHLEN IST EIN JUNGES PFERD 
LAMM IST EIN JUNGES SCHAF 
KITZ ISTEIN JUNGES REH 
KUEKEN ISTEIN JUNGES HUHN 
KALB IST EIN JUNGES RIND 
FERKEL IST EIN JUNGES SCHWEIN 


Um diese Wortpaare verwenden zu können, werden die DATA-Antweisun- 
gen in den Zeilen 51010 bis 51999 durch neue Anweisungen ersetzt, die die 
Wortpaare enthalten. 


51010 DATA “ITALIEN‘“, “ROM“, “FRANKREICH‘“, “PARIS“ 


Es können maximal 50 Wortpaare aufgenommen werden. Von diesen wählt 
das Spiel acht Zufallspaare aus. Natürlich muß auch der zentrale Text in 
Zeile 51000 geändert werden, damit er die neuen Wörter in der aktuellen 
Liste sinnvoll verbindet. 


Beispiel: 


Zusammenfassung von Kapitel 6 


In diesem Kapitel stellten wir drei Textspiele vor. Wir erläuterten, wie ein- 
fache Veränderungen vorgenommen werden, um die Spiele dem speziellen 
Teilnehmerkreis anzupassen. Die Spiele benutzen viele der in diesem Buch 
bereits vorgestellten Unterprogramme. Aufbau und Benutzerfreundlichkeit 
wurden anhand dieser Programme demonstriert. Im nächsten Kapitel zeigen 
wir einige interessante Spiele, die die grafischen Möglichkeiten des APPLE 
ausnutzen. 
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Lösungen zu Kapitel 6 


Frage 1: 





Frage 2: 





Frage 3: 





Frage 4: 





Frage 5: 





Frage 6: 





Frage 7: 
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Die Länge der Antwort wird auf 3 Buchstaben begrenzt. 

Ändern der DATA-Anweisungen in den Zeilen 52000 bis 52050. 
Die Zeilen 3310 bis 3430. 

5 Auswahlmöglichkeiten in Zeile 51020. 


1200 NG = 6 
8300 COLOR = 9 
8350: 


Die Zeilen 8400 bis 8420. Anschließend wird in den Zeilen 8300 bıs 8390 das 
Farbquadrat mit schwarzer Farbe gezeichnet. 


Kapitel 7 
Weitere Spiele 


In diesem Kapitel stellen wir drei weitere Computerspiele vor, die einige be- 
sondere Merkmale in sich vereinigen. KONZENTRATION ist ein auf Bildern 
basierendes Kartenspiel, das sich gut für die LO-RES-Grafik des APPLE eig- 
net und das verwandt ist mit dem bekannten Familienspiel “Memory“. Mit 
KONZENTRATION können wichtige Programmveränderungen sehr einfach 
durchgeführt werden, z.B. das Programmieren verschiedener Schwierigkeits- 
grade. 

STERNE ist ein Spiel zum Zahlenraten. Das Programm nutzt die hohe Re- 
chengeschwindigkeit des Computers aus. Wir haben das Spiel in einer speziel- 
len Version entwickelt, um die Grafikfähigkeiten des APPLE besonders her- 
vorzuheben. 

Unsere Version des SIMON-Spiels benutzt Musik, LO-RES-Grafik und fort- 
laufende Textzeilen. 


Konzentration 


KONZENTRATION ist ein Ein-Personen-Spiel, das aber auch von mehreren 
Spielern abwechselnd gespielt werden kann. Das Spiel dauert so lange, bis 
alle Kartenpaare gefunden sind. Am Ende des Spiels werden alle Karten 
offen (mit dem Bild nach oben) auf dem Bildschirm dargestellt. 


10 REM ...KONZENTRATION-EINGABE BILDER... 

ll: 

997: 

998 REM %k INITIALISIERUNG X%k 

997: 

1000 DIM FR%(12,1) ,CD4 (243 ,H% (24) ,V%(24) ,CF% (6,1) 


1010 MF = 12: REM MAXIMALE ZAHL VON KARTENFAAREN 

1020 MC = 5: REM  FARBFAARE 

1030 REM VERAENDERE DIE EARTENAUSDRÜCK FROZELUR IN 8E00,... WENN CH ODER C 
V VERAENDERT!! 


1040 CH = 4: REM HORITZOENTALE LAENGE -— 1 EINER KARTE 
1050 CV = 6: REM  VEFTIEALE HOEHE - 1 

1100 FOR J= 1 TO 24: REM INITIALISIERE EARTENFOSITION 
1110 7% = U-D 58 
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1120 HA) 

11309 VA 

1140 NEXT 

zu00  DIM BL${U29 

1210 BL$ = "" 

1220 FOR J=17T0 39 

1250 BL$ = BL$ + " 

1240 NEXT 

1297 ; 

1298 REM * TITELBILD % 

1299 : 

1300 GR : HOME : FOR J = 1 TO 24: GOSUR 8000: NEXT : REM DRUCKE KARTEN MIT 
BILD NACH UNTEN 

1310 XS = 1:XH = HALUDISXV = VAL XE = "EON"TSACCH) = 14: GOSUR 15400 

1320 XH = HAB) XV = VA :X$ = "ZEN": GOSUB 15400 

1330 XH = HAl1EI:XV = VALISI:XS = "TRA": GOSUR 15400 

1340 X5 = ZEXH = HALZOI SV = VACZO):X$ = "TIO": GOSUR 15400 

1350 XH = HYIZMEX$ = "N": GOSUR 15400 

1360 VTAR Z3: HTAR 7: PRINT "MIT RETURN GEHT ES WEITER. ."; 

15370 GOSUR 11500: REM WARTE AUF TASTENDRUCK 

1580 IF ZA= - 1 THEN END : REM ESC 


(Y-1-&4 ZA Kb H+Z 
ZA x 10 


1497 :; 

1498 REM * FARAMETER FUER DIESES SFIEL % 

14979 : 

1500 NT = 4: REM ZAHL DER KARTENMOTIVE IN DIESEM SPIEL 
1510 NGC = 4: REM ZAHL DER FARBFAARE 

ISz0 NP = 6: REM ZAHL DER KARTENFAARE 

1530 LC$ = CHR$ ( ASC ("ATI - IL + ZEN 

1600  GOSUR ?O00: REM INFORMATIONEN 

1997 : 

1978 REM %% INITIALIZATION FOR NEXT GAME X 


19997 : 

2000 IF NT X NC © NF THEN TEXT 2 HOME > VTAB 11: HTAB 2: FRINT "NICHT GENUG 
KARTEN. AENDERE 1500-1520.": END 

z01lO N = 15 

z020 FOR J = 1 TON: REM INITIALISIERE FARBEN 

2030 CDRID = J 

2040 NEXT 

2050 GOSUR 2900: REM WECHSLE DIE FARBEN 

2060 FOR J = 1 TO NC: REM  WAEHLE DIE ERSTEN ZXNC FARBEN 

2070 CFA(J,O = CDACERJ - 2 

2080 CFR(J, CD (2 xD 

2090 NEAT 

„100 N = NFr REM ZAHL DER KARTENFAARE 

z110 FOR J=1 TON: REM INITIALISIERE KARTENMOTIVE UND ANDRDNUNG 

2120 FRA(J,0) NTxX RAND (1) + 1: REM WAEHLE MOTIV FUER FAAR J 

2130 FRA, NE RAND (1) + 1: REM WAEHLE FARBEN FUER FAAR J 

2130 IF J= 1 THEN ZZ00 

ls 2 =0 

z21&0 FORK = 1 TOT - 1: REM DAS FAAR SOLL VERSCHIEDEN VON DEM VORHERGEHEND 
EN FAAR SEIN 

2170 IF PR%AIJ,ON = FRACE, O0) AND FRAU, DI = FRACK, 1) THEN Z = 1: REM SETZE Z 
EICHEN FUER GLEICHES FAAR 

2180 NEXT 

ls IF Z 0 TMEN 2150: REM WAEHLE DAS FAAR NOCHMAL 

2200 CDRiZ 8 3-1) = Jr REM ZWEI KARTEN FUER FAAR J 

z210 DAZU MD = 5 

ZE2O NEXT 

2250 GOSUR 9500: REM INITIALISIERE DEN AUSDRLCK VOR DEM MISCHEN DER EARTEN 

ZzaU0 N = ER NFI REM ZAHL DER BENUTZTEN KARTEN 
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zall 


ADDO 
AORO 
AUS 
SOSO 
A100 
3110 
F120 
3130 
3140 
3150 
ArODo 
3210 


nn 
cd 


GSOSUR 2900: REM — MISCHE DIE KARTEN 


2220 TR = 0: REM ZAHL DER VERTAUSCHUNGEN 

2400 GOTO 3000 

2900 FOR Z=N TOZ2STEF - 1: REM MISCHE  CDYlleees.N) 
20 ZE= IK RAND th) #1 on 
2920 Zi = CDX{Z): REM  VERTAUSCHE ZWEI ELEMENTE 

2920 CDYED = EDXIZU) 

2940 CDYIZU) = Zi 

2950 NEXT 

2960 RETURN 

29797: 

2998 REM  x*% WAEHLE NEUES FAAR X 

29997 : 

3000 OP$ = "ERSTE KARTE: " 

3010 


DH = 0 
Fl = 0: REM ERLAUBE JEDE GUELTIGE WAHL 
GOSUR 3500: REM NIMM EINE GUELTIGE KARTE 
IF J= 0 THEN 5200 
Fi= Jr REM ERSTE WAHL 
Er = " ZWEITE:" 
"3 
ScDor REM WAEHLE EINE ANDERE GUELTIGE KARTE 


m 

10 
ET 
c- 
Dr 


[IF 0 = 0 THEN G200 
F2 = Jı REM ZWEITE WAHL 
TR = TR + I: REM EINE WEITERE VERTAUSCHUNG 

VTAR 23: HTÄAR 10: FRINT LEFT$ (BL$,30): REM LEERE ZEILE 


IF CDKiFIN © 5 CDACFZI THEN 4000: REM EARTEN FASSEN NICHT 
SOTG 5000: REM EIN FAAR 


a4: 

492 REM 4 ALLGEMEINER CODE FLER DIE KARTENWAHL % 

„4723 REM EINGANG: OP$ SOFORT 

„494 REM BH HTAR FUER SOFORTIGE ANTWORT 

34753 REM AUSGANG: J EARTENZAHL 

„496 REM 0 ESC 

497 REM FROZEDUR LAESST NUR DIE WAHL NOCH NICHT BESTIMMTER FAARE ZU 
>4398 REM ERLAURT NICHT DIE WAHL VON Fi 

497: 

Zsüo WTAR 23:5 HTAR OH: FRINT QP$; 

as10 YW = 1: GOSUB 10000: REM EINGABE EINES ZEICHENS 

as20 IF Z%= - 1 THENJ = 0: RETURN : REM ESC 

saal IF Z$ © "A" OR Z$ > LC$ THEN 3700: REM BUCHSTABE IST NICHT GUELTIG 
ad = ASC IZE - ASC ATI +1 

Saal IF CDAJI S = G0R J = FI THEN 600: REM KARTE WURDE SCHON GEWAEHLT 
as60  GOSUB 8200: REM DRUCKE KARTE AUS 

A370 RETURN 


337703 


2078 REM * BEREITS GEWAEHLT % 

Its Sr 

3600 0$ = "DIESE KARTE WURDE BEREITS GEWAEHLT" 
3610 G0TO 710 

3677 3 

A670 REM X WAEHLE EINEN GUELTIGEN BUCHSTABEN % 
IT: 

700 O%$ = "WAEHLE EINEN BLCHSTABEN VON A BIS " + LC$ 
Aarlo F= 80 

3720  GÜSUR 5900 

3720  GOTO 3500: REM VERSUCHE NOCH EINMAL 

„971 


REM * DRUCKE HINWEIS ZEILE % 
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39973 : 

„894 REM EINGANG: Ü$ AUSZUDRUCKENDER TEXT 

3975 REM F FALSE 

997 : 

„Pol VTAR 24: HTAR 10: FRINT O8; 

„910 NORMAL 

SO YF = Fr GOSUB 11400: REM FAUSE 

3730 HTAR 1ö: FRINT LEFT$ {BL$,29);: REM LEERE HINWEIS ZEILE 
940 RETURN 

3997: 

37078 REM $ KARTEN FASSEN NICHT X 

395797: 

oc U& = "ER KEIN FARRSOICK" 

4010 F = 150 


zn GÜSUB 3900 


Aus 
410 I = Filz REM DREHE KARTE 1 UM,„BILD NACH UNTEN 
4110 GOSUR 8000 
4120 J= F2i REM DREHE KARTE 2 LM,BILD NACH UNTEN 
3130 GOSUR 9000 


4140  GOTO 3000: REM  WAEHLE ANDERES PAAR 
4997 ı 

4998 REM %* KARTEN FASSEN % 

4999 ; 
5000 0% 
5010 F 
5020 P = 150 

5030  GOSUB 3900 

S0SO J = Fi: REM  ENTFERNE KARTE 1 

060  GOSUB 5700 

5070 J = Pf: REM  ENTFERNE KARTE 2 

SCHÖ  SOSUB 5900 

SiC0O N=N- 2: REM ZWEI KARTEN WENIGER 

5110 IFN > O0 THEN 2000: REM  UEBRIGE KARTEN 

5200 GR : HOME : REM  DRUCKE DIE ORIGINAL ANORDNUNG 

S210 VTAB 21: INVERSE 

5220 IFN 5» 0 THEN HTAR 9: INVERSE : FRINT "HIER SIND ALLE KARTEN...": NORMAL 


"Xk RICHTIG KK" 


wand IFN= 0 THEN HTAR Zr FRINT "DU HAST ALLE FAARE IN "TR; " VERSUCHEN GEF 
UNDEN. "3 NORMAL 


mail FÜR = 14 TO EX NFr REM DRUCHKE KARTEN MIT BILD NACH OBEN 


210 GOSUR 200 
E32 NEXT 

SI20 S0T0 &000: REM NOCHMAL? 

5900 GOSUR 9900: REM  ENTFERNE KARTE J 

S9j0 PRINT“: 

5920 GBOSUR 100: REM  LOESCHE KARTE 

5930 EDELD = - EDYLDI: REM ZEICHEN WENN PAAR GEFUNDEN 


„40 RETURN 

9977 3: 

779 REM x*X NOCH EINMAL? X 

3777: 

aüdo MTAR 1: VTAR 24 

#öoio  FRINT "NOCH EINMAL SFIELEN OR MT N: 
Ko2o GOSUR 11200: REM J/N 

Aaac ON ZZ + 2 GOTO 100, 5000, Z000, Silünz REM ESÜo, UNGUELTIG, J, = 
diöo FRINT : FRINT 

diliö FRINT "DANKE FUER’S MITSFIELEN."; 

120 END 

7997: 

7978 REM * DRUCKE KARTEN FROZEDUREN X 
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7999 : 


gSono 
gold 
8100 
8110 
8120 
3i:ü 
8140 
8150 
g160 

O0 
gz10 

220 
9230 
8240 

250 
260 
8270 
9200 
8310 
320 
8330 
3340 
9350 
8380 
8370 
9400 
9310 
3420 
9430 
3440 
8450 
8450 
8470 
9490 
8500 
8510 
520 
8530 
8540 
8350 
In hate 1] 
98370 
8600 
8810 
fu {0 95 
BAAO 
3640 
8550 
Rus0 
8570 
8680 
8997 
8998 
997? 
Oo0 
010 
F5FO 
040 
FOs0 


7070 


COLOR= 
GOTO 5 
COLOR= 
H = HA( 


1: REM * DRUCKE KARTE 3 BILD NACH UNTEN 
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OÖ: REM * LOESCHE KARTE J 


Ti 


vayvaon 


FOR Z 
VLIN V 
NEXT 
RETURN 
ih= AR 
REM 


REM AUSGANG: 


H = H%( 


=HTOH + GC 
‚VW +cCcVATZ 


RS tCDAUINDE 
AENDERE ZEIC 


9: REM H-F 


VvV=WALUM: REM WV-F 
Ci = CFA(FRACZA, 129,0): REM FARBE 1 
C2 = CFAIFRA(ZE, 22,1}: REM FARBE 2 


H 


REM DRUCEE KARTE J BILD NACH OBEN 
HEN FROZEDUR WENN CH,CV VERAENDERT 


ZA FAARNUMMER VON KARTE J 


05 
0S 


DN FR% (2,0) GOTO 8300,93400,8500,9800: REM DRUCKE KARTEN MOTIV 


FOR Z 

LOLOR= 
VLIN VW 
VLIN V 
NEXT 

COLOR= 
YLIN VW 
RETURN 
FOR Z 

LOLOR= 
HILIN H 
HLIN H 
COLOR= 
HLIN H 
HLIN H 
NEXT 

RETURN 
FOR Z 

COLOR= 
VLIN V 
VLIN V 
COLDOR= 
VLIN V 
NEXT 

RETURN 
FOR Z 

COLOR= 
HLIN H 
HLIN H 
COLOR= 
HLIN H 
HLIN H 
NEXT 

RETURN 


REM 


TEXT ; 
FRINT 
FRINT 
FRINT 
FRINT 
FRINT 


=HTOH +1: 


c1 
‚V+ CV AT 
‚Vr+rcv AT 


u 2 


c2 
V+LVATH 


SYTOV +1: 


ci 

‚H+CHATZ 

‚H+CHATZ 
c2 


‚H+CHATZ + 
+ 


„H + CH AT 


=HTOH + 2? 
ci 
‚V+LCV Ar 
‚V+ CV AT 
c2 
Y+LVATZ 


4m 


=YyTOV+3 
ci 

„H + CHAT 
„H + CH AT 
c2 

‚H+ CHAT 
‚H+CHATZ 


| a0 u 


rn 


xx INFORMATI 


HOME 


REM MOTIV 1 = 3 V-STREIFEN 


REM MOTIV 2 = 3 H-STREIFEN 


+ 
[n 


Dr u 2 


STEF 2: REM MOTIV 3 = Y-STREIFEN 


STEF 2: REM MOTIV 4 H-STREIFEN 


N 
in 


ONEN X% 


"KONZENTRATION IST EIN MEMORY-SFIEL." 


"DIE KARTENF 


"UMGEDREHT. 
"DIE KARTEN 
"DIAGRAM ANG 


ARRE WERDEN GEMISCHT UND " 
VERSUCHE DIE FAÄARE ZU FINDEN." 
SIND ENTSFRECHEND DIESEM" 
EORDNET: " 
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9080  INVERSE :Z = 17 
9090 HTAR Z: FRINT "ABCDEF" 
9100 HTAR Z: FRINT "GHIJEL" 
110 REM HTAR Z:FRINT "MNOFOR" 
9120 REM HTAB Z:FRINT "STUVWX" 
9150 NORMAL 
9150 FRINT "WAEHLE EINE KARTE DURCH EINTIFFEN EINES" 
7160 FRINT "BUCHSTABEN VON A BIS ";L6$:". (WENN " 
9170 FRINT "SIE DIE LINKE OBERE EARTEN WAEHLEN, DANN TIFFEN SIE A.) 
91970 FRINT "DU KANNST NUR ZWEI KARTEN GLEICHZEITIG SEHEN. WENN DU EIN FARR 6 
EFUNDEN HAST" 
200 PRINT "VERSCHWINDEN DIE ZWEI SFIELKARTEN,. " 
220 FRINT "ES GIBT EINE BEGRENZUNG IN DER ZAHL DER VERSUCHE. " 
9240 PRINT "DRUECKE "s: INVERSE =: FRINT "ESC",S NORMAL 3 FRINT " FUER FROGRAM 
MENDE."“ 
9260 FRINT "MIT RETURN GEHT ES WEITER... "; 
9270  GOSUR 11500: REM WARTE AUF TASTENDRUCH 


280 IF 27% = - 1 THEN #100: REM ESC 
9290 RETURN 

9497 : 

9498 REM x*% GEMISCHTER LOWRES-TEXT-BILDSCHIRM 
9499 : 


9500 GR : HOME 

9510 FORJ=1TO ZA NP 

9520 GOSUR 8000: REM DISPLAY CARD FACE DOWN 

9530 NEXT 

9540 VTARB 21: HTAB 10: FRINT "JEDES ZEICHEN STEHT FUER EINE KARTE, 
SUCHE DIE FAARE!" 

9560  INVERSE 

9570 FORJ=1TO 2A NP 

9580 GOSUR 9900 

3590 FRINT CHR$ ( ASC ("ATI - 1 + Ds 

9600 NEXT 

9610 NORMAL 

9620 RETURN 

9900 7% = {I - 1) / 8: REM  LOKALISIERE KARTE J IN BUCHSTABEN-MATRIX 

9910 VTAB 21 + 7% 

9920 HTARBRJ-1-6% IL + 2 

9920 RETURN 


439997 : 

479798 REM *x% VARIABLEN-VEREINBARUNGEN X 

497997 : 

0000 REM FRA (J,O) KARTENMOTIV VON FAAR J 

0010 REM FRA(J, 1) FARBENFAAR VEN KARTE J 

SO020 REM CF%A(K,O) FARBE 1 VON FARBENFAAR H 

„0030 REM ECFACH, 1) FARBE Z VON FARBENFAAR K 

„0040 REM ED FAARNUMMER VON J-TER KARTE WENN NICHT GEFUNDEN 
„0050 REM = FAARNUMMER WENN BEREITS GEFUNDEN 
„O0&s0 REM HA HORIZONTALE FOSITION VON KARTE J 
u070 REM van VERTIEAL 

0090 REM NT ZAHL DER AKTUELLEN KARTENMOTIVE 
„00970 REM NC ZAHL DER AKTUELLEN KARTENFAARE 
Solnd REM NF ÜRIGINALZAHL DER FAARE 

So1l10 REM LC$ BUCHSTABE DER LETZTEN KARTE 

Sso1Z0 REM N ZAHL DER NOCH NICHT GEFUNDENEN KARTEN 
0130 REM EH HORIZONTALE BREITE EINER EARTE 
sC140 REM CV VERTIEALE HOEHE EINER KARTE 

suiS0 REM TR ZAHL DER VERTAUSCHUNGEN 

Ss0150 REM Fi ERSTE WAHL 

0170 REM FZ ZWEITE WAHL 


KOoad s 
SaülO REM % COPYRIGHT 1981 BY HOWARD FRANELIN, FALD ALTO, CA % 
süozo ı 


Geben Sie dieses Programm ein. Verbinden Sie es mit EINGABE EINHEIT 
und BILD EINHEIT. Speichern Sıe das Programm mit dem Namen KON- 
ZENTRATION ab. 


Neben der erwarteten Fehlerabfrage-Prozedur zur Vermeidung falscher Ein- 
gaben vereinigt KONZENTRATION noch andere Vorteile in sich, durch die 
das Programm einfach zu handhaben ist. Die Spielkarten werden von einer 
Matrix am linken unteren Bildschirmrand präsentiert. Diese Matrix bleibt 
während des ganzen Spiels auf dem Bildschirm sichtbar. Sie wird ständig er- 
neuert, wenn Karten ausgewählt und zusammengehörige Paare gefunden 
werden. Auf diese Art wird der Spieler daran erinnert, nicht den gleichen 
Buchstaben für beide Karten eines Paares zu wählen bzw. eine Karte zu wäh- 
len, die schon mit einer anderen verbunden wurde. (Im letzten Fall ver- 
schwinden die Spielkarte und der zugehörige Buchstabe vom Bildschirm). 


Frage 1: Welche Antwort druckt das Programm aus, wenn eine bereits ent- 
fernte Spielkarte gewählt wird? 


Weitere Vorteile der Buchstabenmatrix sind: Der Spieler braucht keinen 
Spielregler zu benutzen oder sich eine komplizierte Reihenfolge von Cursor- 
bewegungen zu merken. Alle notwendigen Informationen bleiben während 
des ganzen Spiels auf dem Bildschirm sichtbar. Macht der Spieler einen Feh- 
ler, druckt der Computer hilfreiche Hinweise aus. Personen, die das Spiel 
nicht zu Ende spielen wollen, drücken ESC und anschließend RETURN. 

Um ein ansprechendes Bild zu gestalten, sollten inverse und blinkende Text- 
darstellungen sparsam benutzt werden. In KONZENTRATION wird die 
inverse Darstellung benutzt für die Nachricht “DU HAST ALLE PAARE GE- 
FUNDEN”. Die FLASH-Funktion wird benutzt, um dem Spieler ein gefun- 
denes Paar anzuzeigen. 


Frage 2: Welche Zeilennummer beinhaltet die Nachricht, daß ein Karten- 
paar gefunden wurde? 


Für den Spieler hat das Spiel nur einen einzigen Schwierigkeitsgrad. Wir 
können aber mehrere Parameter des Programms verändern und damit den 
Schwierigkeitsgrad steigern. Die wichtigen Ausdrücke, die die grafische Dar- 
stellung des Spiels bestimmen, sind alle als Variablen geschrieben und am An- 
fang des Programms festgelegt. Wir haben KONZENTRATION in einer Form 
entworfen, die es uns leicht macht, Zahl und Typ der dargestellten Farb- 
muster zu verändern. Die Farbmuster sind Kombinationen von drei oder fünf 
horizontalen bzw. vertikalen Streifen (siehe Zeile 1040 und 1050). 


Folgende Programmänderungen sind möglich: weniger Farben (Zeile 1510), 
weniger horizontale und vertikale Streifen (Zeile 1500) und weniger bzw. 
mehr Spielkarten (Zeile 1520). 

Die Spielkarten werden vor Beginn eines jeden Spiels neu gemischt. Wir haben 
in unserer Version zwölf Karten (sechs Paare) gewählt; die Kartenpaare 
suchen wir aus allen möglichen Farben und Mustern aus. Es soll zwei volle 
Reihen von Spielkarten in farbiger, reizvoller Anordnung geben. Sie können 
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aber die Parameter nach eigenem Entschluß wählen. Dabei ist darauf zu ach- 
ten, daß die Anzahl der Farbstreifenkombinationen multipliziert mit der An- 
zahl der Farbpaare größer (oder gleich) der Anzahl der Kartenpaare ist. 


Frage 3: Wie wird die Anzahl der Spielkarten am Beginn des Spieles ver- 
ändert? 


Das Spiel ist einfacher zu spielen, wenn die Zahl der Kartenpaare, die Zahl 
der Kartentypen und Farbpaare und die Zahl der Streifen auf einer Karte 
vermindert werden. 


KONZENTRATION verfügt über keine Klangmöglichkeiten. Wir glauben, daß 
dieses Spiel rein visueller Natur sein sollte. Wenn Sie Klänge und Töne hin- 
zufügen wollen, dann erweitern Sie das Programm mit KLANG EINHEIT. 
Geben Sie den Eingangsvariablen entsprechende Anfangswerte. Das Spiel ver- 
wendet noch viele weitere elegante Programmiertechniken. Schauen Sie sich 
das Listing sorgfältig an, und Sie werden einige davon entdecken. 


Sterne 


STERNE ist ein Ratespiel mit Zahlen, das unter dem Namen STARS am 
People’s Community Center entwickelt wurde. Im Gegensatz zu anderen 
Zahlenspielen, die ebensogut mit Bleistift und Papier zu spielen sind, nutzt 
STERNE die große Rechengeschwindigkeit des Computers aus. Das Pro- 
gramm antwortet auf jeden Rateversuch mit dem Ausdruck von Sternen an- 
statt irgendwelcher Kommentare. Je mehr Sterne erscheinen, desto mehr 
nähern wir uns dem richtigen Ergebnis. Das Programm errechnet die Anzahl 
der ausgedruckten Sterne, und so erhalten wir bei jedem Versuch weitere 
Informationen über die richtige Lösung. STARS, ursprünglich für Fern- 
schreiber geschrieben, wurde von uns in einer LO-RES-Version für den 
APPLE umgeschrieben. Das Programm nutzt die Möglichkeiten der Bild- 
schirmgestaltung des APPLE. Auch macht es von der Möglichkeit der Fehler- 
bearbeitung in EINGABE EINHEIT Gebrauch. Da wir in diesem Programm 
das ‚Pause- oder Tastendruck‘-Unterprogramm verwenden, legt es nach jeder 
Antwort eine Pause ein, die der Spieler durch Drücken einer Taste beenden 
kann. 


10 REM ...STERNE - EINGABE KLANG EINHEIT... 
11: 

997 3: 

778 REM *k INITIALISIERUNG %% 

997: 

1000 BF$ = CHR$ (7) 

1010 L2 LOG (2) 

1020 MN 1 

1030 MX 40 

1040 SiI%X = LOG (MX - MN / LOG (2 +1 
1050 TER 13 

1050 GR 28 

1070 GT GB - 27 

1197 : 


100 


1198 REM * TITELBILD % 

1199 : 

1200 GR : HOME 

1210 FOR Z = 1 TO 100: REM — FARBPUNKTE 


1220 COLOR= 15: IF RND (1) © .75 THEN COLOR= 17 
1230 FLOT INT (A0 x RND (1d), INT (40 8% RAND (12) 


1240 NEXT 


1250 COLOR= 15: FOR Z = 15 TO Zr: REM WEISSES RECHTECK 


1260 HLIN 4,34 AT Z 
1270 NEXT 


1280 %%$ = "STERNE":XV = 16:XC (1) = 0: GOSUR 15300 
1290 VTAR 23: HTAR 8: FRINT "MIT RETURN GEHT ES WEITER.."; 


1500  GOSUB 11500: REM WARTE AUF TASTENDRUCK 


1310 IF Z4= -1 THEN END : REM ESC 
1900 GOSUB 9000: REM INFORMATIONEN 
1997 : 


1978 REM xx INITIALISIERUNG FUER NEUES SFIEL 8% 


1999 ; 


2000  GOSUR 9500: REM GEMISCHTE TEXT-GRAFIE FORM 


2010 A= INT (iM -MN + D x RND (DI + MN 


FÜRO N = OÖ 


2030 YL = MN 
2040 YH = MX 
2997 3 


2998 : REM &% NAECHSTER VERSUCH *% 
2999 : 
3000 FRINT "RATE: "; 


3010 YW = 3: GOSUB 11000: REM EINGABE INTEGER 


s020 IF Z%4= - 1 THEN 6200: REM ESC 


3050 IF ZA& > 1 THEN HTAB TB: FRINT "EINE ZAHL VON "MN" TO ";MX;", BITTE 


": GOTD 000: REM UNGUELTIGE ZAHL 


S0406G=7 

SI0O0O N=N + 1: REM %* GUELTIGER VERSUCH X 
s11l0O IF A= 6 THEN 5000 

3997: 


3998 REM *% FALSCH GERATEN 3% 
3999 : 


2000 5% = SI% = INT (LOG C ABS (G - A) / 12 


4010 GOSUR 8000 

4020 GOTO I000 

4997 : 

4978 REM x RICHTIG GERATEN X 
4997 : 

3000 5% = 20 

5010 GOSUR 8000: REM  BALKEN 


S0ZO WD = 100:7$ = "AAHHJJH": GOSUB 153500: REM 


s030  FRINT 
3040 FLASH 


KLANG 


s050 HTAB 9: PRINT "DU HAST ES IN ";N}" VERSUCH"; 


5060 IFN => 1 THEN FRINT "EN; 

5070 FRINT " GESCHAFFT!" 

3080 NORMAL 

39797 3 

„999 REM *t NOCHMAL? X 

39977: 

suol HTAR 1: VTAR 24 

#010 FRINT "NOCH EINMAL{J OR NT"; 
8020 GOSUR 11200: REM  J/N 

KoFO ON Z% + 2 GOTO 5100, 4000, 2000,6100: REM 
s100 FRINT » PRINT 


ESC. UNGUELTIG, J, N 


101 


si1lü FRINT "DANKE FUER’S MITSPIELEN."; 
s120 END 


6197 : 
#178 REM *t AUFGABE %% 
5197 ı: 


6200  HTAR TB 
210 PRINT "MEINE ZAHL WAR "HA 
HEzU GOTO 5000 


7977 3; 
7998 REM xX ANTWORTE AUF VERSUCH X 
7999: 


8Oc0 HTAR TR 

8010  SPEED= 120 

8020 FOR J= 1 TO S% 

BO0RG FRINT "X": BFP$; 

804 NEXT 

3050 SFEED=E 2535 

Susan PRINT 

BOT IFGR + I 8% SHE GT THEN SA = 5% - 15 GOTO 8070 

BS100 REM % DRUCHEE BALKEN 4 

g1io COLOR= 5% 

3120 WLINGB,GE - II SAATG - MN 

8120 RETURN 

39977: 

RFIR REM *k INFORMATIONEN %% 

39977; 

sooo TEXT : HOME 

Polo VTAR 4 

@G2O HTAR 14: FRINT "XXX STERNE Hk" 

9030 FRINT 

7040 FRINT 

050 FRINT "ICH DENKE AN EINE ZAHL ZWISCHEN" 

040 FRINT MN" UND "ıMX:". VERSUCHE DIE ZAHL ZU ERRATEN. " 

20670 FRINT 

Fast  FRINT "NACH JEDEM VERSUCH DRUCKE ICH EIN ODER " 

a7 FRINT "MEHRERE STERNE (X) AUS. WE NAEHER DU" 

100 FRINT "MEINER ZAHL KOMMST, DESTO MEHR STERNE DRUCKE ICH AUS. " 

110 VTAR 20 

7120 FRINT "DRUECEE "rr INVERSE : FRINT "ESC";: NORMAL = FRINT " FUER SPIELEN 
DE," 

2130 FRINT 

140 PRINT "MIR RETURN GEHT ES WEITER... "; 

7150 GOSUR 11500: REM WARTE AUF TASTENDRUCH 

Biso IF ZA = - 1 THEN 4100: REM ESC 

9200 GR : HGME 

Fz1O X$ = "STERNE"SKV = GsXcti) = 1: GOSUR 15300 

FEED PRINT No oe 1 OT 0" 

FZ30 FÜKE 34,22: REM SETZE TEXTFENSTER 

9270 RETURN 


9497 

7498 REN *% GEMISCHTE LOWRES-GRAFIK GESETZT X% 

9499 

3500 COLOR= 0: FOR Z = ST TO GB: HLIN 0,39 AT Z: NEXT + REM  LOESCHE GRAFIKB 
EREICH 


510 HÜNE : REM LÜESCHE TEXTFENSTER 

9520 RETURN 

29771: 

47F79PEZ REM *%%X STERNE I%X% 

47975: 

37774 REM CRIGINALVERSION DER FEOFLE’S COMPUTER COMFANY, MENLD FARK, CA 
IF7T77 2 
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477989 REM *k VARIABLENVEREINBARUNGEN K% 


49997 5: 

SOooc REM A ANTWORT 

50010 REM BF$ BEEF (CHR${7)) 

O020 REM FE FLAG FUER GUELTIGE EINGABE 
SOO2D REM G RATEVERSUCH 

50040 REM GR BODEN DES GRAFHEN 

SouGD REM ST KOFF DES GRAFHEN 

50060 BEM J SCHLEIFEN ZAEHLER 

„0070 REM L2 LOS(ZI 

„aö8o REM MN MINIMALE ANTWORT 

„00970 REM MX MAXTIMUM 

SolO0 REM N ZAHL DER VERSUCHE 

0110 REM 5% ZAHL DER STERNE FUER VERSUCH 
„0120 REM 51% MAXIMUN DER STERNE +1 
„0130 REM TR TAB FOSITICN FUER ANTWORT 
Soon0 s 


soll REM % COFYRIGHT 1781 BY HOWARD FRANELIN, FALO ALTO, CA % 
KODZO : 


Verbinden Sie dieses Programm mit EINGABE EINHEIT, KLANG EINHEIT 
(löschen Sie die Zeilen 18000 bis 19999) und BILD EINHEIT. Speichern Sie 
es unter dem Namen STERNE. 


Wie wir wissen, steht uns bei der LO-RES-Grafik nur ein vier Zeilen großes 
Textfenster am unteren Bildschirmrand zur Verfügung. Deshalb haben wir 
die Informationen zu diesem Spiel an den Anfang des Programms gesetzt. 
Durch die optische Wiedergabe auf dem Bildschirm bleibt die Idee des Spiels 
deutlich erkennbar. 


In diesem Spiel werden alle Hinweise eindrucksvoll auf dem Bildschirm aus- 
gedruckt. Die Darstellung der Zahlen in einer Reihe ermöglicht eine visuelle 
Anordnung der Information, die in den früheren Fernschreiber-Versionen 
nicht möglich gewesen ist. Alle Hilfen und Hinweise bleiben auf dem Moni- 
tor ständig sichtbar. Deshalb hielten wir es für vertretbar, stets nur eine Ant- 
wortzeile im Textfenster des Bildschirms erscheinen zu lassen. 

Da wir die Grafik nicht nur als Dekoration verwenden, sondern in das Spiel 
Integrieren, ist diese Version von STERNE ein sehr hübsches Spiel. Wenn Sie 
Programme entwickeln bzw. verbessern, überlegen Sie, wie grafische Effekte 
im Programm verwendet werden können. Zum Beispiel können Linien und 
Bilder dazu benutzt werden, hilfreiche Informationen zu vermitteln. 


Wir haben die Zahl der erlaubten Rateversuche nicht begrenzt, wie das sonst 
in diesen Spielen üblich ist. Das Einschränken der erlaubten Versuche kann 
Kinder vom Spielen fernhalten. Durch Verwendung unserer ESC-Vereinba- 
rung kann der Benutzer wählen, ob er weitermachen oder aufgeben will. 
Das ist weitaus angenehmer und spielerfreundlicher. 
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Simon 


SIMON ist unsere Version des populären Spiels, in dem der Computer eine 
Melodie spielt, die der Spieler ohne Fehler nachspielen soll. 


10 REM ».:.SIMON-EINGARE KLANG 
il: 
997: 
998 REM %% INITIALISIERUNG X% 
997 3; 
1000  DIM T% (30) 
1100 01 = 1: REM WIEDERHÜLE ZAHL IN MELODIE OFTION 
1110 QZ2 = 1: REM NOTE UNTER BOX OFTION 
1120 03 = 1: REM WAEHLE BOX OFTION 
1130 04 = 1: REM KLANG NOTE OFTION 
1200 TL = 1: REM TIEFSTE NOTE 
1210 TH = 8: REM HDOECHSTE NOTE 
z20 TD = 8ü: REM LAENGE JEDER NOTE 
1220 10: REM FAUSE ZWISCHEN NDTEN 
1240 LL = 3: REM MINIMALE LAENGE JEDER MELODIE 
1250 LH = 20: REM MAXIMUM 
1300 BV = 5: REM BOX HOEHE 
1210 VR = 30: REM V-FOS DER ECX 
1320 WS = WR - BV - Br REM V-FOS DER GERWAEHLTEN BOX 
1330 HT = 19: REM H-FÜS DER MELOBIE 
1340 VE = 23: REM Y-FOS5 DER CGMFUTER MELODIE 
1250 VL = 24: REM V-FOS DER LAENGE 
1360 YY = 22: REM Y-FOS IHRER MELODIE 
1400 CR = 1: REM HINTERGRUND FARBE 
1410 CR = 2: REM BÜX FARBE 
1420 CR = I: REM FARBE GEWAEHLTER BOX 
1500 L = LL: REM LAENGE DES ERSTEN TÜNES 


4 
nn 
u 


1597 3: 

15998 REM * TITELRBILD % 

15997 : 

1&00 TEXT : HOME 

Ii610 WF = 0: GOSUR 12000: REM VERMEIDE INITIALISIERUNGS VERZDEGERUNG BEI ERS 
TER NOTE 


1820 5$ = "SIMON" 

1830 FOR I = 1 TO LEN (5$) 

1640 VTAR 16: HTAB 17 + Js INVERSE : FRINT MID$ (5$,J,0 
16500 VTAR 12 = Js HTAB 4 % Js FRINT MID$ {5$8,1,193: NORMAL 
1660 WR = J:ıWD = &0: GOSURB 13000: REM NOTE U 

1670 YF = 15: GOSUR 11400: 

1680 FRINT CHR$ (D);" " 

16890 NEXT 

1700 SFEED= 100: FOR Z = 1 TO 4: FRINT CHR& (ss NEXT : SPEED= 255 
1710 WVTAR 23: HTAB 8: FRINT "MIT RETURN GEHT ES WEITER, .": 
1720 GOSUR 11500: REM KARTE AUF TASTENDRUCH 

1720 IF ZA= -1THEN END : REM ESC 

1700 REM GOSUR POod: REM INFORMATIONEN 


19977 : 
19799 REM #4 INITIALISIERUNG FLER NAECHSTE NOTE 
1797 ; 


2000 FOR I=1 TO L: REM MACHE MELODIE 

2010 TAU = (TH - TO 8 RND (1) + TL 

zZU20 NEXT 

2030 GÜSUR 8300: REM SETZE BOXEN 

2040 VT = VC:07 = Ql:Q1 = Gr GOSUR 99U0; REM smIELE COMPUTER MELODIE ÖDRUCKE 
NICHT MELODIE) 
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2050 01 = 09: REM SFEICHERE MELODIE OFTION 

z2080 YF = 10: GOSUR 11400: REM FAUSE 

2100 HOME 

2110 VTAB VL: HTAB HT - 8: PRINT "LAENGE: ";ls: REM  DRUCKE LAENGE 

2120 VTAB YYı HTAB HT - il: FRINT "DEINE MELODIE"; 

21230 NJ = 1: REM ERSTE NOTE 

20530 01 09: REM SFEICHERE MELODIE OFTION 

Z20Os0 YF 10: GOSUR 11400: REM FAUSE 

2100 HOME 

2110 WTAR YL= HTAB HT - 8: FRINT "LAENGE: "ıly: REM DRUCKE LAENGE 

zZ120 WVTAR YYı HTAR HT - 11: FRINT "DEINE MELODIE"; 

2130 NI = 1: REM ERSTE NOTE 

2977: 

27978 REM $%X NAECHSTE NOTE IN MELODIE #% 

2997 : 

ADO0  GOSUB 11500: REM TASTENDRUCK, OHNE WIEDERGARE, OHNE VORHERIGES ZEICHEN 

2010 IF Z&= -1 THEN YTAR YYi HTAR HT + Z + NdJı: FLASH =» FRINT "ESC"s# NORMAL =: GOTO 
4000: REM ESC 

aczO NM = Z - 178: REM YSNDLE UM IN NOTE # 

2030 IFMN ZZ TLORFN > TH THEN 3000: REM UNGLELTIGE NOTE 

Aacgo YT = WW: GOSUR Bao: FEHM ANTWORTE AUF NOTE 

A000 IF N = TZEND THEN 5000: REM RICHTIGE NOTE 

997 : | 

„978 REM ** MELODIE WAR FALSCH I 

SFT: 

4000  SPEED= 100: FOR Z = 1 TO 4: FRINT CHR& (My: NEXT : SFEED= ZU 

4010 YF = 10: GOSUR 11400: REM PFAUSE 

ad DF = 01:01 = 1: GOSUR 8800: REM SPIELE COMPLUTERMELORTE (DRUCKE MELODIE) 

au: 01 = 09: REM SFEICHEFE FRINT NOTE OFTIOM 

4040 IFL > LL THEN I. =1 1 

4050 GOTN SO0G: REM NOCHMAL? 

4997 : | 

47978 REM #% RICHTIGE NOTE I 

49FT : 

od MI = NIT + 1 

so10 IE MIT &S  = |. THEN Zoo: REM NAECHSTE NOTE 


Tue; 


AOFT 
SOF8 REM 3% RICHTIG 3% 


STOFF : 

S100 HOME 

z110 YTAR YYsı HMIAR HT - 12: PRINT "DAS IST RICHTIGE"; 
g120 BP? = Q1:Q1 = 1: GOSUE 8900: REM SFIEL DIE MELODIE 
130 01 = 09: REM SFEICHERE FRINT MELODIE OPTION 

140 REM 42 NAECHSTE MELODIE IST LAENGER 

sısdo IFL& LH THENIL. = L +1 

997 3 

„998 REM x NOCHMAL KK 

TFT: 

sand HIAR 1: YTAR 24 

solo PRINT "NAECHSTE MELODIE (TOR MT N: 

anzu GOSUB 11200: REM J’N 

OF ON ZZ + 2 GOTO 8100, 8000, Z000,5100: REM ESC,UNGUEI.TIG,J. N 
alüo FRINT : FRINT 

#110 FRINT "VIELEN DANKE FLER’S MITSFIELEN.";: 

&120 END 

FaF7 : 

7998 REM #%$ DRUCKE  EOX UNTERFROGRAMME 3% 


Br 
FrTT7 


gcaon  COLOR= CR: REM Y* DRUCKEE BOX N 
Bold Z = WR 


8020  GOT0 8200 
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SOSO COLOR= CR: REM * LOESCHE BOX N 
ORG GOTO BOLD 
8100 COLOR= CS: REM  * DRUCKE GEWAEHLTE BOX N 
Silo 2 = vs 
8120 GOTO 8200 
8150 COLOR= CB: REM % LOESCHE GEWAEHLTE BOX N 
8140 GOTO 8110 
8200 Z1= -4*5& N REM  %* DRUCKE BOX N IN REIHE Z 
8210 FEM N = BOX 4 
8220 REM FARBE FUÜER DRUCKEN ODER LOESCHEN 
8220 REM Z = ROW # 
8240 FÜR IE = Ir BY -1 
8250 HLIN Z1,21 + 2 AT Z2 
260 NEXT 
8270 RETURN 
300 GR : HOME : REM * DRUCKE HINTERGRUND UND ERSTE BOXEN 
8310 COLOF= CB 
83320 FOR Z = 0 10 28 
83320 HLIN 0,29 AT 2 
8340 NEXT 
350 FOR N = TL. TO TH 
BIAU GOSUR 8000 
8370 NEXT 
8380 RETURN 
8400 7$ = SIR$ (N: REM  %* WIEDERHOLE ZAHL. UNTER BOX N 
8410  INVERSE 
8420 GOTO 8500 
8450 Z$ = " ": REM  %# LOESCHE ZAHL UNTER BOX N 
8500 VTARB 21: REM  %* DRUCKE Z# UNTER BOX N 
8510 HTAR - Z+ SEN 
8520 PRINT Z$; 
8530 NORMAL 
8540 RETURN 
8600 REM  %* ANTWORT AUF NOTE N,NJ NOTE IN MELODIE, WIEDERHOLE NOTE IN ZEILE VT 
8610 IF @1 > O THEN VTAR VT: HTAB HT + 3 + NJ: INVERSE : PRINT N5: NORMAL : REM 
WIEDERHOLE NOTE IN MELODIE 
B620 IF Q2 > Q THEN GOSUR 8400: REM WIEDERHOLE NOTE UNTER BOX 
8630 IF O3 > Q THEN GOSUR 8050: GOSUR 8100: REM  WAEHLE BOX 
8640 IF Q4 > O THEN WD = TD:WP = N: GOSUR 13000: REM SPIELE NOTE 
8650 YF = TP: GOSUB 11400: REM PAUSE 
8460 IF 03 > O THEN GOSLR 8150: GOSUR 8Oocc: REM WAEHL.E BOX 
8670 IF O2 > O THEN GOSUR 8450: REM LOESCHE NOTE UNTER ROX 
8480 RETURN 
8800 YT = YC: REM * SPIELE DIE COMPUTER MELODIE 
8810 IF BI > O THEN VTAR VT: HTARB HT - 17: PRINT "COMPUTER MELODIE:"; 
8900 REM  * SFIELE MELODIE IN ZEILE VT % 
8810 FOR NJ = 1 TOL 
8920 N = T%ND 
8930 GOSUR 8600: REM ANTWORTE AUF NOTE NJ IN MELODIE 
8740 NEXT 
8750 RETURN 
8997 : 
8979 REM  *% INFORMATIONEN X% 
8998 : 
7000 TEXT : HOME 
9200 PRINT 
7210 PRINT "DRUECKE "3: INVERSE : PRINT "ESC";: NORMAL = PRINT " FUER SPIELENDE ." 


TO Z STEF - 1: REM  DRUCKE YON RODEN 


220 FRINT 
7250 FRINT "NIT RETURN GEHT ES WEITER... "; 
9240 GOSUB 11500 
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7250 IF Z7%= 1 THEN 6100: REM ESC 

9250 RETURN 

13117 5 

13118 REM PITCHES 

13119 3 

13120 DATA 255,228,203,192,171,152,130, 127 

KO00O0 3 

K00lü FEM %* COPYRIGHT 1981 BY HOWARD FRANKLIN, FALO ALTO, CA 
SO0ORO 3 


Verbinden Sie dieses Programm mit EINGABE EINHEIT und KLANG EIN- 
HEIT. Speichern Sie es als SIMON. 


Die Aufgabe des Spielers ist es, die Melodie des Computers zu wiederholen. 
Dabei benutzt er die Zifferntasten. Unser Spiel gibt sowohl sichtbare als auch 
hörbare Hilfen. Die farbigen Kästchen bewegen sich, und die zu den Tönen 
gehörigen Zahlen erscheinen auf dem Bildschirm. Der Spieler kann sich auf 
die Zahlen, auf die relative Position der Kästchen, auf die Töne oder auf eine 
Kombination dieser drei Möglichkeiten konzentrieren. 


Schauen Sie sich die Variablen an, mit denen das Spiel geändert werden kann 
(Zeile 1100 bis 1500). Die Änderung der Variablen ergibt eine enorme Viel- 
falt von möglichen Variationen. Damit das Monitorbild nicht zu verwirrend 
wird, haben wir allen Kästchen dieselbe Farbe zugeordnet. Die Farbe der 
Kästchen und die des Hintergrundes können in den Zeilen 1400 bis 1420 
verändert werden. Jeder Ton der Melodie unterscheidet sich vom vorher- 
gehenden Ton. Er wird per Zufallsfunktion aus den vorhandenen Tönen aus- 
gewählt. Die Schwierigkeit des Spiels ergibt sich allein aus der Länge der 
Melodien. Lange Melodien sind schwer, kurze Melodien leicht nachzuspielen. 
Der Erfolg des Spielers mit einer Melodie bestimmt, ob die nachfolgende 
Melodie leichter oder schwerer sein wird: Das Programm paßt sich von selbst 
den Fähigkeiten des Spielers an. Wir können das Spiel erschweren, indem wir 
die Pause zwischen den einzelnen Tönen verkürzen. 


Frage 4: Welche Zeile muß dazu geändert werden? 


Die Zahl der möglichen Töne (und der Kästchen) wird im Programm festge- 
legt. Wir haben acht Töne benutzt. 


Frage 5: Wie wird das Programm geändert, damit nur noch fünf Töne ver- 
wendet werden? 

Frage 6: Die Dauer des ersten zu spielenden Tones soll fünf Einheiten be- 

tragen. Welche Zeile wird geändert? 

Frage 7: Wie wird das Programm geändert, damit die Zahlen, die beim Spie- 

len jeder Note erscheinen, verschwinden? 


Das Programm reagiert sofort auf das Betätigen der ersten falschen Taste. 
Ist zum Beispiel eine Melodienfolge 3, 5, 4, aber der Spieler betätigt die 
Tasten 3, 6, 4, dann stoppt das Programm bei 6. Es zeigt an, daß die Melodie 
falsch war, und wiederholt die richtige Tonfolge. 
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Zusammenfassung von Kapitel 7 


In diesem Kapitel haben wir drei besonders hübsche Spiele vorgestellt. STER- 
NE ıst eine technisch moderne Version eines alten Computerspiels. KONZEN- 
TRATION und SIMON sind moderne Computerversionen populärer Spiele, 
die wir dem Computer-Zeitalter angepaßt haben. Zusammen mit den vielen 
Variationsmöglichkeiten bekommen wir eine Vielzahl von unterschiedlichen 
KONZENTRATION- und SIMON-Spielen. Wir wünschen dem Leser viel 
Freude damit! | 





Lösungen zu Kapitel 7 
Frage l: DIESE KARTE WURDE BEREITS GEWAEHLT 
(siehe die Programmzeilen 3598 bis 3610.) 
Frage 2: Zeile 5000. Beachten Sie, daß Q$ auch für den Ausdruck andere Hinweise 
in den Zeilen 3600, 3700 und 4000 verwendet wird. Außerdem wird Q$ 
jedesmal in Zeile 3900 ausgedruckt. 
Frage 3: 1520 NP=12 (Die maximale Anzahl von Farbenpaaren ist 12 — siehe 
Zeile 1010.) 
Frage 4 1230 TP = | 
Frage 5 1210 TH=5 (Oder ändern Sie TL und TH so, daß zwischen diesen 
zwei Werten fünf Noten liegen.) 
Frage 6 1240 LL=5 
Frage 7: 1110Q2=0 
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Anhang A 
RENUMBER/MERGE-Hilfsprogramm 


Zum leichteren Gebrauch der vorgestellten Programme und Unterprogramme 

werden sie mit den eigenen Programmen des Lesers verbunden. Das erfordert 

in einigen Fällen, daß die eigenen Programme umnumeriert werden. Auf der 

System Master Diskette, die zum Lieferumfang eines jeden APPLE-Computers 

gehört, befindet sich ein Hilfsprogramm zur Verbindung (Merge) und Um- 

numerierung (Renumber). 

An dieser Stelle wollen wir kurz zeigen, wie das Hilfsprogramm anzuwenden 

ist (durch Starten des Programms RENUMBER INSTRUCTIONS erscheint 

auf dem Bildschirm der komplette Befehlssatz). 

1. Starten Sie das RENUMBER-Programm. Es wird eingelesen und in den 
höheren Speicher-Bereich des Rechners abgelegt. 

2. Lesen Sie Ihr eigenes Programm mit dem Befehl LOAD NAMEI RETURN 
ein. 

3. Tippen Sie: <H RETURN. Das Programm wird nun festgehalten. 

4. Lesen Sie das zweite Programm mit dem Befehl LOAD NAME 2 RETURN 
ein. 

5. Verbinden Sie beide Programme mit: &M RETURN. 

Das Ergebnis befindet sich nun im Programmspeicher des APPLE. Bevor Sie 

irgendetwas anderes durchführen, sollte zuerst das Programm mit einem 

eigenen Namen auf Diskette gespeichert werden. Das komplette Programm 

kann dann gestartet werden. 

Wir haben unsere Programme und Unterprogramme so numeriert, daß sie 

sich voraussichtlich nicht mit den Programmen des Lesers überschneiden. Es 

ist wichtig, daß die Zeilennummern von zwei Programmen sich nicht über- 

schneiden. Wenn sie dies doch tun, treten einige unangenehme Folgen auf. 

Haben zum Beispiel zwei Befehle die gleiche Zeilennummer, tritt diese Zeilen- 

nummer im resultierenden Programm zweimal auf. Zur Vermeidung solcher 

Probleme sollten die Programmzeilen im eigenen oder im gewünschten Unter- 

programm so umnumeriert werden, daß sie sich nicht mehr überlappen. Dazu 
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kann wieder das RENUMBER-Programm benutzt werden. Das Verfahren 
wird wie folgt durchgeführt: 

1. Starten Sie das RENUMBER-Programm 

2. Lesen Sie das Programm ein, das umnumeriert werden soll. 

3. Tippen Sie: & RETURN. 

Das ganze Programm wird nun neu numeriert. Die neuen Zeilennummern be- 
ginnen mit der Zeile 10 und werden in Zehnerschritten fortgesetzt. Alle Be- 
fehle, die auf Programmzeilen Bezug nehmen, wie GOTO, GOSUB, ON ... 
...GOTO und IF... THEN werden automatisch richtiggestellt. Die Umnume- 
rierung eines 16K Programms nimmt ungefähr eine Minute in Anspruch. 
Während dieser Zeit hat es den Anschein, als ob der Rechner untätig sei. 
Glauben Sie bitte nicht, daß ein Fehler vorliegt. Drücken Sie daher auf 
keinen Fall RESET. Anschließend können Sie das Programm speichern, 
starten oder auflisten lassen. 


Der Umnumerierungs-Prozeß kann auch bei einer anderen Zeilennummer als 
bei 10 beginnen oder in anderen Schrittweiten erfolgen. Auch können ein- 
zelne Teile eines Programms neu numeriert werden, ohne das ganze Pro- 
gramm zu verändern. Dazu werden folgende Symbole benötigt: 


F — gibt die Nummer der ersten neuen Zeile an 

I - gibt die Differenz zwischen zwei aufeinanderfolgenden Zeilen an 
S — gibt die erste Zeile an, die neu numeriert werden soll 

E — gibt die letzte Zeile an, die neu numeriert werden soll. 


Einige Beispiele sind: 
&F100, 120, 5350, E660 — Umnumerierung der Zeilen 350 bis 660 begin- 


nend mit Zeile 100 und der Schrittweite 20. Die neuen Zeilennummern lau- 
ten 100, 120, 140, ... 


&51000, E2500, F1000, 115 — Umnumerierung der Zeilen 1000 bis 2500 
beginnend mit Zeile 1000 und Schrittweite 15. Die neuen Zeilennummern 
lauten 1000, 1015, 1030, ... 
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Anhang B 
Randbemerkungen zum Programmieren der Spiele 


Dieser Anhang ist für den fortgeschrittenen Programmierer geschrieben und 
erläutert die Überlegungen, die einigen Programmen dieses Buches zugrunde 
liegen. Wir erläutern die Notwendigkeit einer Unterprogramm-Bibliothek 
und die Einschränkungen in APPLESOFT BASIC, die Konstruktion und den 
Gebrauch einer solchen Bibliothek betreffend. Assemblerlistings einiger 
Hauptprogrammteile, die wesentlich sind, aber nicht in BASIC geschrieben 
werden können, sind in diesem Anhang enthalten. Auch finden wir hier eine 
Anzahl von Bemerkungen zu den vorgestellten Programmen. Die Bemerkun- 
gen sind in technischer Hinsicht zu speziell, als daß wir sie an anderer Stelle 
hätten bringen können. (Manchmal werden sie auch ‘Ramblings‘ genannt.) 


Auf keinen Fall soll hier eine gründliche, jeden einzelnen Schritt beschreiben- 
de Untersuchung eines jeden Algorithmus durchgeführt werden. Die REM- 
Anweisungen in jedem Listing skizzieren ausführlich den Programmverlauf. 
Zur Beantwortung spezieller Fragen können diese REM-Anweisungen heran- 
gezogen werden. 


Unterprogramm-Bibliotbek 


Aus der Sicht des Programmierers vergrößert ein Unterprogramm die Mög- 
lichkeiten einer gegebenen Programmiersprache. Wird ein Unterprogramm 
entwickelt und fertiggestellt, entspricht es einem „Super-Befehl‘. Einige 
Unterprogramme sind spezielle „Super-Befehle‘“ für spezielle Anwendungen 
(z.B. das Ausdrucken einer veränderlichen Anzahl von Sternen im Programm 
STERNE, Zeile 8000). Einige andere Unterprogramme besitzen mehrere An- 
wendungsmöglichkeiten (z.B. Eingabe und Wiederholung eines Textes, Ab- 
frage für ESC-Taste oder Überprüfung einer Integer-Zahl innerhalb vorge- 
gebener Grenzen). 

Eine Unterprogramm-Bibliothek ist einfach eine Sammlung solcher Unter- 
programme, die allgemein verwendet werden können. In diesem Buch haben 
wir vier Unterprogramm-Einheiten (Zusammenfassung mehrerer Unterpro- 
gramme) entwickelt. Jede Einheit vergrößert die Leistungsfähigkeit von 
APPLESOFT. 
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EINGABE EINHEIT erweitert die Möglichkeiten der INPUT/GET-Befehle. 
KLANG EINHEIT führt neue Klangmöglichkeiten ein. BILD EINHEIT be- 
einflußt Bilder in LO-RES-Grafik, und NEXTDATA EINHEIT ermöglicht 
die RESTORE-Funktion bei jeder beliebigen Zeilennummer und nicht nur 
bei der ersten DATA-Anweisung. Für die Benutzung dieser Unterprogramme 
greifen Sıe bitte auf die Kapitelzusammenfassungen zurück. Über die Unter- 
programme werden wiır später einige Zusatzbemerkungen machen. 


Probleme bei der Erstellung einer Unterprogramm-Bibliothek 


Bei der Erstellung einer Unterprogramm-Bibliothek sind zwei Arten von Pro- 
blemen zu lösen. Die erste betrifft die Einschränkungen, die sich durch die 
Verwendung einer bestimmten Programmiersprache ergeben. In APPLESOFT 
gibt es drei davon: Variablen-Konflikte (das Ändern der Werte von Variablen 
im Unterprogramm, die auch im Hauptprogramm benutzt werden), Zeilen- 
nummer-Konflikte (die Zeilennummern ım Haupt- und Unterprogramm 
überlappen sich), und DATA-Anweisungen-Konflikte (die Unfähigkeit, 
Daten aus einer bestimmten Programmzeile zu lesen, weil DATA-Anweisun- 
gen in anderen Unterprogrammen zuerst berücksichtigt werden). Andere Pro- 
grammiersprachen, sogar andere BASIC-Versionen, schalten einige dieser 
syntaktischen Probleme aus. Die Einführung ‚lokaler‘ Variablen eliminiert 
das erste Problem. Sprachen ohne Zeilennumerierung vermeiden das zweite, 
und “RESTORE X“ mit X als Zeilennummer beseitigt das dritte Problem. 
Die zweite Art von Problemen betrifft die Schwierigkeiten beim Gebrauch 
der Bibliothek. Für das Aufrufen von Teilprogrammen muß genau dokumen- 
tiert werden, welche Eintritts- und Austrittsbedingungen erforderlich sınd. 
Inıtialbedingungen müssen ebenfalls angegeben werden (z.B. ‚Lese ma- 
schinensprachliches Programm X an der Stelle Y vor Benutzung des Unter- 
programms‘‘). Besonders wichtig ist die sorgfältige Anpassung der Unterpro- 
gramme, um unerwünschte Nebeneffekte zu vermeiden (z.B. Ausdruck von 
“AUSSERHALB DES ZULAESSIGEN WERTEBEREICHES“). Damit 
werden die Unterprogramme für viele Bereiche unbrauchbar. Alle diese Pro- 
bleme sind im allgemeinen nicht von einer bestimmten Programmiersprache 
abhängig, sondern hängen von der sorgfältigen Planung des Programmierers 
ab. 


Ausgewählte Lösungen 


Es gibt keine absolut „richtige Antwort‘ auf diese Probleme, sondern eine 
Vielzahl von Lösungswegen. Die in diesem Buch vorgestellten Möglichkeiten 
sind eine Auswahl der „besten Lösungen‘, die von Programmierern aus ob- 
jektiven und subjektiven Gründen erarbeitet wurden (z.B. leichteres An- 
passen, aus ästhetischen Gründen, persönlichen Vorlieben). 
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Problem Nr. 1: Variablennamen 


Variablennamen, die mit W beginnen, haben wır für KLANG EINHEIT reser- 
viert. Die Anfangsbuchstaben weiterer Variablen sind: X für BILD EINHEIT, 
Y für EINGABE EINHEIT und NEXTDATA EINHEIT und Z für Zeitvaria- 
blen. Im allgemeinen sollte das Hauptprogramm nur Variablennamen be- 
nutzen, die mit A, B, C,..., V beginnen. Diese Lösung erscheint auf den 
ersten Blick willkürlich, da nicht viele der möglichen Variablennamen im Be- 
reich von W bis Z benutzt werden. Eine Alternative ist die Auswahl eines 
kleinen, mehrmals verwendbaren Satzes von Variablen. Die wirklich reser- 
vierten Variablennamen müssen gesondert aufgeführt werden. Dies ist jedoch 
aus verschiedenen Gründen keine ‚einfache‘ bzw. „elegante“ Lösung: Es 
ist einfacher sich zu merken, daß die Buchstaben W bis Z nicht benutzt wer- 
den dürfen, als sich bestimmte reservierte Namen zu merken. Es ist auch 
schwieriger, ein Überschneiden der einzelnen Unterprogramme in Bezug auf 
die Variablen zu vermeiden. Auch ist das Verbinden der einzelnen Einheiten 
schwieriger, wenn solche willkürlichen Variablennamen benutzt werden. 
BASIC-Programme sind immer schwierig zu lesen. Daher werden die Variablen- 
namen so ausgewählt, daß sie, wenn möglich, auch als Gedächtnishilfe dienen. 
So bedeutet z.B. XH die horizontale Position in BILD EINHEIT und YH die 
größte Integer-Zahl innerhalb eines Intervalls im Programm EINGABE EIN- 
HEIT. YM kann sowohl Minimum als auch Maximum bedeuten. Unsere vor- 
geschlagene Lösung erzeugt also eine einfachere und ‚schönere‘ Bezeich- 
nungsweise. 


Im folgenden geben wir noch einige zusätzliche Regeln für die Wahl von 
Variablennamen an. Vermeiden Sie die Buchstaben I und O — sie sind zu 
leicht mit 1 und ® zu verwechseln. Eine weitere Vereinbarung ist die Be- 
nutzung von Integer-Variablen für die Ausgabe von Code- oder Steuerzahlen 
(Z% =-1 ESC; = ® ungültige Integer-Zahl; = 1 gültige Integer-Zahl). Dies gilt 
nicht für die Ausgabe von Zahlenwerten. (Z = Zahlenwert, wenn Integer-Zahl 
gültig ist). Auch sollten Integer-Zahlen für Kennzeichnungen (flags) benutzt 
werden (WR% >, wenn KLANG EINHEIT bereits eingelesen). Wenn es 
möglich ist, sollten zum Abspeichern von Werten möglichst Integer-Felder 
anstatt Real-Felder benutzt werden (z.B. L%() und R% ( ) in MATCH). Be- 
nutzen Sie INT( ) anstatt einer Integer-Variablen. Dies ist im Programm- 
listing leichter zu verfolgen. 

Nicht betrachtet haben wir bisher die Beschleunigung des Programmablaufs 
durch sorgfältiges Anordnen der Variablen (siehe auch APPLESOFT II Be- 
nutzer-Handbuch, Anhang E). Es gibt keinen einfachen Weg, diese Möglich- 
keit in eine Unterprogramm-Bibliothek mit aufzunehmen, aber vielleicht ver- 
suchen fortgeschrittene Programmierer, die Schwierigkeit zu beheben? Wir 
halten einen klaren Programmaufbau für wichtiger und haben uns entschlos- 
sen, dieses Problem zu ignorieren. Mit Ausnahme von BILD EINHEIT sind 
alle Unterprogramme schnell genug. 
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Problem Nr. 2: Zeilennumerierung 


Die Zeilen 10xxx und 11xxx sind für EINGABE EINHEIT reserviert, die 
Zeilen 13xxx für KLANG EINHEIT, 15xxx für BILD EINHEIT und 19xxx 
für NEXTDATA EINHEIT. Außerdem sind die Zeilen 20100 bis 49999 für 
die Bilderbibliothek von BILD EINHEIT vorgesehen. 


Die Lösung kann mit der Lösung für die Variablennamen verglichen werden. 
Eine Alternative wäre, das RENUMBER-Programm nicht nur zum Verbinden 
von Programmen, sondern auch zur Umnumerierung zu benutzen. Die Unter- 
programme könnten einfach neu numeriert werden und damit im Listing 
dort plaziert werden, wo gerade Platz ist. Der größte Nachteil dieser Lösung 
ist das Variieren der Eintrittspunkte von Programm zu Programm; variable 
Eintrittspunkte sind wesentlich schwieriger zu handhaben als feste. Außer- 
dem dürften doch genügend Programmzeilen für das Hauptprogramm übrig 
sein. Ein übersichtlich aufgebautes Programm kann z.B. so aussehen: 


— Unterprogramm-Einheiten beginnen ab Zeile 10000 
— größere logisch zusammenhängende Teile beginnen mit 1000, 2000, ... 
USW. 
— kleinere Teile beginnen mit 100, 200, ... usw. 
Häufiges Umnumerieren macht es schwerer, dem Programmverlauf zu folgen 
(und der Aufbau wird unübersichtlich und häßlıch). 
GOTO- oder GOSUB-Befehle sollten nie zu Programmzeilen führen, die nur 
REM-Anweisungen enthalten, denn in manchen Fällen werden sıe vielleicht 
gelöscht oder beim Eintippen ausgelassen. Ein Eintritt sollte nur am Anfang 
eines Unterprogramms erfolgen. Der trickreiche Eintritt in die Mitte eines 
Unterprogramms ist riskant, und das Programmlisting ist später schwierig 
abzuändern. Dies kann durch Neustrukturierung der lokalen Variablen und 
der Eingangsvariablen des Unterprogramms vermieden werden. 
Im Bestreben, gute Lesbarkeit der Listings zu erreichen, wollten wir die Aus- 
wahl der Variablennamen, die Zeilennumerierung und die Benutzung der 
REM-Anweisungen in jedem Programm übereinstimmend anwenden. Deshalb 
sehen sich die Programmlistings alle etwas ähnlich. Auch das Empfinden des 
Programmierers für einen „schönen‘‘ Programmaufbau steigerte sich während 
dieses Prozesses, mit dem Erfolg, daß die späteren Programme stärker über- 
einstimmen als die ersten. Es ist sehr schwierig, schöne und klar strukturierte 
Listings in BASIC zu schreiben. Unsere Programme stellen den Versuch dar, 
übersichtliche Listings zu entwickeln. 


Ebenso wie das sorgfältige Anordnen der Variablen, kann auch das überlegte 
Anordnen der Zeilennummern die Ausführung eines Programms beschleuni- 
gen (siehe wieder APPLESOFT II Programmieranleitung, Anhang E). Aus 
den gleichen Gründen, wie bereits erwähnt, ignorieren wir dieses Problem. 


Problem Nr. 3: DATA-Anweisungen 


Die Lösung dieses Problems erfolgt direkt und ist schwierig. Ein “RESTORE 
X“-Befehl (X kann eine beliebige Zeilennummer sein) wurde in NEXTDATA 
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EINHEIT zusätzlich aufgenommen. Viele BASIC-Varianten besitzen diesen 
Befehl bereits, aber unglücklicherweise nicht APPLESOFT. 


Die Bilderbibliothek in BILD EINHEIT benötigt keinen großen Aufwand für 
die Verwaltung der Bildadressen, denn jedes Bild beginnt mit einer Zeile 
20000 + 100 * ZAHL. Sie kann daher einfach mit RESTORE X ergänzt 
werden. 


Das Programm KLANG EINHEIT liest ein maschinensprachliches Unterpro- 
gramm durch die Verwendung von POKE-Befehlen und DATA-Anweisungen 
ein, statt einzelne POKE-Befehle zu verwenden. (Dagegen wird in NEXT- 
DATA EINHEIT das Assemblerlisting nur mit POKE-Befehlen gelesen). Hier 
ist ein Assemblerlisting von RESTORE X: 


& X 
7 * AFFLESOFT ANGEFASST 
8 X 
7 DATFTR EU $7D ;MEMORY FOS FUER 
NAECHSTES EINLESEN 
10 LINNLIM EQU $50 x ZEILENNLUMMER FUER "’FNDLIN’ 
11 LOWFTR EQU $7R „ADRESSE VON ’FNDLIN’ 
12 FNDLIN ERU $DölA ;SUCHE FUER ZEILENNUMMER 
15 
14 
15 % RESTOREX — NAECHSTES EINLESEN VON ZEILE X 
1& x 
7 LINEX DS Z + ZEILENNUMMER 
15 X 
0302: AD 00 02 19 RESTOREX LDA LINEX:SETZE ZEILENNUMMER 
0305: 85 50 Z0 STA ZEILENNUM 
0307: AD O1 08 2 LDA LINEX+1 
D30A: 85 51 ZZ STA ZEILENNUM+1 
acc: 20 1A De 23 JSR FNDLIN ;SUCHE 
DIOF: 85 98 24 LDA LOWFTR ı ERNEUERE ZEIGER 
FÜUER NAECHSTES EINLESEN 
Gall: 19 25 LLC 
o312: 6897 04 fi ADC #4 ; AKTUELLE DATEN 
0314: 857 27 STA DATFTR 
Old: AS FC 8 LDA LOWFTR+1 
0318: 67 00 27 ADC #0 
os1la: 85 7E Sc STA DATFTR+1 
0O31L: &0 31 RTS 


Problem Nr. 4: Beschreibung des Aufrufs von Programmteilen 

Die Kapitelzusammenfassungen beschreiben alle aufrufbaren Programmteile 
zu jedem Unterprogramm. Zusätzlich stehen in den Listings REM-Anweisun- 
gen vor jedem Eintrittspunkt. Wenn REM-Anweisungen aus Platzgründen ge- 
löscht werden müssen, sollten die REM’s vor den Eintrittspunkten als letzte 
beseitigt werden. 


Problem Nr. 5: Erforderliche Initialisierungen 


Alle Programme initialisieren sich selbst. Sie arbeiten deshalb auch, wenn im 
Hauptprogramm ihre Initialisierung vergessen wird. Dies ist ein wichtiges 


115 


Ziel für den Programmaufbau, denn auch unerfahrene Programmierer sollen 
unsere Unterprogramme verwenden können. 


Unsere Lösung ist ein seltenes Beispiel eines APPLESOFT-Tricks (d.h. dieser 
Trick wird nicht notwendigerweise in anderen BASIC-Varianten funktionie- 
ren). Die Lösung beruht auf der Tatsache, daß mit dem Ausführen des RUN- 
Befehls alle arithmetischen Variablen Null gesetzt und alle Textvariablen als 
leer angenommen werden. Wann immer eine Initialisierung notwendig ist, 
wird ein Steuerzeichen abgefragt (z.B. in KLANG EINHEIT, Zeile 13000 
bedeutet WR% = O nicht initialisiert und WR% > 0 bereits initialisiert). In 
EINGABE EINHEIT wird die Platzhalter-Variable YF$ in Zeile 10000 initiali- 
siert. Gleiches geschieht mit XS, dem Abstand zweier Bilder, in den Zeilen 
15310 und 15410 im Unterprogramm BILD EINHEIT. Das automatische 
Festsetzen von DIM XC (10) in Zeile 15020 in BILD EINHEIT entspricht 
gerade noch den Ansichten des Programmierers für einen guten Program- 
mierstil. 


Problem Nr. 6: Gute Anpassung der Unterprogramme, Vermeiden von 
unerwünschten Nebeneffekten 


Wie bereits erwähnt, ist dieses Problem stark von den persönlichen Ansichten 
des Programmierers abhängig. Um keine gegensätzlichen Meinungen darzu- 
stellen, wollen wir auf dieses Problem nicht weiter eingehen. 


Ausgewählte Bemerkungen über dıe Programme 


In Kapitel 1 werden zwei Programme in Maschinensprache benutzt. Das eine 
produziert Tonfrequenzen von festgelegter Dauer (KLANG), das andere 
produziert die Tonfrequenzen nur so lange, bis die nächste Taste gedrückt 
wird (ORGEL). Die Assemblerlistings sind im folgenden dargestellt: 


35 x 
34 * AFFLESOFT ANGEFASST 
te x 
36 CLICK EQU  $C030 5 LAUTSPR SCHALT 
37 x 
38 Y 
Ry, % ELANG -ERZEUGE ELANG MIT FESTGELEGTER TONDAUER 
40 X 
41 % EINGANG : TONDAUER-L,H GESETZT 
zZ 4 1: TONH SETZEN IN "TONHTEL’ (1/40) 
43 X 2: TONH SETZEN 
44 x 
45 TONDAUER DS 2 
45 TONHDEHE DS 1 
47 x 
49 * EINGANG 1: BENUTZE "TONH” MIT AKTUELLEM 
TONHOEHEN-WERT 
0320: AC IF 03 49 KLANGI LEY TONH 
0323: B7 4903 50 LDA TONHTBL-1,Y 
0326: 2ıiF 0: 51 S5STA TONH 


By * 
== 


%* EINGANG 2: "TONH" SETZEN 
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0329: AO 00 4 KLANG? LDY #0 ; INITIALISIERE 24-BIT 
" ZAEHLER" 

OSZB: EE 1D 05 5 INC TONDAUER 
OSZE: EE IE 03 56 INC TONDAUER+1 

37 x 
os31: AB IF 03 58 NXTCLICH LDX TONH ;RESTORE TONH ZAEHLEN 
0324: AD SO CO 59 LDA ELICK z CLICK” LÄUTSFR 

50 Y 
0337: 88 61 COUNTDOWN DEY ı24-BIT-ZAEHLER 

(Y, TONDAUER-L,HI 

0358: DO 0A 2 BNE NICHT ERLEDIGT 
O033As CE ID 03 65 DEC TONDAUER 
O033D: DO 05 64 BNE NICHT ERLEDIGT 
O33F: CE 1E 03 65 DEC TONDAUER+1 
05342: FO 05 66 BED ERLEDIGT 

57 X 
0344: CA 48 N. ERL.  DEX "UERERFRUEFE OR NAECHSTES ELICH 
0345: FO EA 57 BED NXTELICH 
0347: DO EE 70 BNE LOUNTDOWN 

71 x 
0349: 50 FR ERLEDIGT RTS 

73 x 

74 %* TENHTBL - TONHDEHEN WERTE 
OS4A: FFF2E4OTS TONHTBL HEX FFFZEAD7CRCORSAR ;17/8 
0352: Al IS SF 76 HEX A1IS3F877F79718BR Tl 
O3SA: 65 0 5A 77 HEX Sof sAssso4B4732 317724 
OS62: SF SBR38 7 HEX SFSBSSISSZEFZCHA 1 E3/ SE 
O36R: 28 25 23 7 HEX ZBESZSZ1ZONEITCIA 153790 

91 X 

2 * AFFLESOFT ANGEFASST 

53 x 

34 TASTE EQU  $Coo0 

85 x 

36 Y 

37 * ORGEL - ERZEUGE TONHOEHE BIS NEUE TASTE 

SEDRUECHET WIRD 

Inte) x 

37 * EINGANG: TONH SETZE IN "TONHTRL" 117405 

00 x 
G37Eı ACC AF OS A ORGEL LDY TONH 
4379: BP 4705 92 LDA TONHTEL-1,Y 
2378: 8D IF 03 B& STA TONH 
O37R: oO AD SO ch 94 ORGCLICE  LDA TASTE ;UEBERFRUEFE TASTATUR 
OS7E: 50 0E 75 RMI ORGERL ;-) TASTE GEDRUECKT 
Gaaoı AR IF OÖ 76 LDX TONH ; RESTORE TONHDEHEN ZAEHLER 
Js: AD 30 0097 LDA  ELICK 2 "CLICK" LAUTSPR 

75 X 

77 * DIE NAECHSTEN BEIDEN ANWEISUNGEN 


WERDEN GEMACHT, 


100 * UM DIE INNERE SCHLEIFE ZEITLICH 

i0i * DER VORHERIGEN FROZEDUR "ELANG’ 
ANZUFASSEN 

Ile x 

105 * DIES FOLGT AUS DEN TDNH-WERTEN, 

154 * DIE IN JEDER FROZEDUR AEHNLICHE 
TONHOEHEN BEWIRKEN 

153 x 

394: 98 106 ORGCHUNT DEY 


3397: Do 00 167 BNE ORGNOFP 


ı08 ORGNIF EQL! * ; ENDE VON ’VERLUST'-ZEIT 
0397: 0A 107 DEX ı VERERFRUEFE OR NAECHSTES CLICK 
O38R: FO ER 110 BER  ÜRGELICHK 
G38Cı DO FB 111 EBENE — DRECODLUNT 

112 X 
OSBE: 40 115 ORGERL  RTS 


Beachten Sie die zwei Eingänge von KLANG. In KLANGI wird für die Ton- 
höhe (TONH) ein Wert in TONHTBL (Tonhöhentabelle) gesucht. In KLANG2 
wird für TONH der aktuelle Wert benutzt. Die Töne entstehen durch das 
Ansteuern des Lautsprechers mit einer internen Frequenz, die durch die 
Werte in TONH bestimmt wird. Der Zusammenhang der internen Frequenz 
mit dem entstehenden Klang hängt von der zeitlichen Abstimmung des Ma- 
schinenprogramms ab. Beachten Sie, daß in TONHTBL Raum für vierzig 
interne Frequenzen ist. Der 16-bit-Wert in TONDAUER bestimmt die Länge 
des Tones. 

Das Programm ORGEL benutzt die gleichen Frequenzen aus TONHTBL und 
verbraucht zusätzliche Rechenzeit in einer internen Schleife. Damit wird die 
zeitliche Anpassung zu dem KLANG-Programm vorgenommen. Im Gegensatz 
zu TONDAUER in KLANG fährt das ORGEL-Programm so lange mit dem 
Produzieren des Tones fort, bis eine neue Taste gedrückt wird. Eine der 
Grenzen der APPLESOFT-Hardware besteht darin, daß wir nicht feststellen 
können, ob eine gedrückte Taste wieder gelöst wird. Deshalb muß das 
ORGEL-Programm auf einen neuen Tastendruck warten, um enden zu kön- 
nen. 

Im LO-RES-Kapitel wird die Tastatur durch das Programm EINGABE 
LAENGE in verschiedene Bereiche aufgeteilt. Jedem Bereich entspricht ein 
anderer interner Parameter. Diese Technik kann auch auf eigene Programme 
des Lesers angewendet werden und erfordert lediglich eine einfache Erweite- 
rung von EINGABE EINHEIT. 

Die Vorteile einer Unterprogramm-Bibliothek werden an dem Beispiel von 
SPIRALE KLANG deutlich. Das Programm SPIRALE2 benötigt nur drei zu- 
sätzliche BASIC-Befehle, um SPIRALE KLANG hervorzubringen. (Auch die 
LO-RES-Titelbilder in den letzten zwei Kapiteln wurden mit sehr geringem 
Programmaufwand hergestellt). 


Das Programm BILD EINHEIT wurde bereits in dem entsprechenden Kapitel 
ausführlich diskutiert. Zu erwähnen bleibt noch, daß die Ausführung durch 
die Zuhilfenahme von Maschinensprache erheblich beschleunigt werden 
kann. Doch dies zu behandeln entspricht nicht der Aufgabe dieses Buches. 
Maschinensprache wurde nur dann benutzt, wenn eine Lösung in BASIC 
nicht möglich war. Die Programmlänge und die Einlesezeit von Diskette kön- 
nen verkürzt werden, indem man nur die benötigten Bilder ins Listing auf- 
nimmt. 

Wir sind froh, daß für die Hi-RES-Grafik kommerzielle Software-Pakete er- 
hältlich sind. Die APPLE-Hardware kann vieles leisten, aber mit APPLE- 
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SOFT verhält sich das anders. Schauen Sie in die APPLESOFT-Programmier- 
anleitung für den Fall, daß numerische Variablen, Felder oder das Programm 
selbst die für die HI-RES-Grafik vorgesehenen Pufferspeicher einnehmen. Im 
Anhang L finden Sie die Zeiger (Pointer) der Nullseite. Mit diesen kann nach- 
geprüft werden, ob dieser Fall eingetreten ist. 

In EINGABE EINHEIT gibt es eine Sperrvorrichtung für den Gebrauch der 
ESC-Taste, denn diese spezielle Taste kann dazu benutzt werden, um aus 
dem gerade laufenden Spiel auszusteigen. Um dies zu erreichen, müssen wir 
jedoch ESC RETURN drücken. Die ‘ESC‘-Schrift wird außerdem auf dem 
Bildschirm wiederholt. Damit wird das Problem des versehentlichen Betäti- 
gens von ESC beseitigt, da die ESC-Funktion nicht von Beginn an aktiviert 
1St. 

Der ONERRGOTO-Befehl ist eigentlich nutzlos, außer beim Verbessern von 
Programmen. Die Fehler O bis 224 sind logische Fehler, die durch Umstruk- 
turierung des Programms beseitigt werden können. Da in EINGABE EIN- 
HEIT der INPUT-Befehl nicht benutzt wird, ıst die Fehlermeldung 254 nıcht 
möglich. Die Fehlermeldung 255 mit CTRL-C ist eine hübsche Idee, wird 
aber nicht richtig eingesetzt. Die Anwendung von RESUME bewirkt die 
Fortsetzung des Programms mit dem gerade ausgeführten Befehl (d.h. RE- 
SUME und CTRL-C bewirken das erneute Ausführen des letzten Befehls, 
anstatt mit dem nächsten Befehl fortzufahren). Leider wird CTRL-C nur be- 
achtet, wenn das Programm eine Eingabe erwartet. Wird die Taste ander- 
weitig betätigt, kann sich dies sehr schlimm auswirken. Vielleicht kann die 
Fehlermeldung 255 zum Ausdruck einer Abschiedsmeldung „Auf Wieder- 
sehen‘‘ vor dem Absturz des Programms benutzt werden. Wenn eine hervor- 
ragende Lösung entdeckt wird, hat der Benutzer auch noch die RESET-Taste 
(bzw. CTRL-RESET) zur Verfügung. 

Das Programm STORY ist ein Beispiel für ein einfaches Spiel mit einem 
farbigen Titelbild in LO-RES, einer Fehlerabfang-Prozedur für den Abbruch 
eines Wortes am Zeilenende und einem Storyaufbau mit Fragen und DATA- 
Anweisungen. 

In BLOCKOUT versuchen wir, einige Begrenzungen in der APPLESOFT 
Textdarstellung zu überwinden. Die SCRN-Funktion, die in Kapitel 2 nicht 
erörtert wurde, wird in Zeile 8350 benutzt und garantiert das Wechseln der 
Farbe eines Blocks. 


Die beiden Programme MATCH und KONZENTRATION arbeiten mit der 
Veränderung von Datenstrukturen und zeigen einige beeindruckende visuelle 
Effekte. Beachten Sie in der BILDER-Bibliothek die auf den Kopf gestellten 
Buchstaben A und T für das Titelbild von MATCH. Versuchen Sie als eine 
weitere Herausforderung KONZENTRATION mit einem Schwarz-Weiß-Fern- 
seher zu spielen und die kleinen Veränderungen im Kartenbild zu erkennen. 
STERNE ist ein anderes altbekanntes und beliebtes Spiel, das durch die Ver- 
wendung von LO-RES-Grafik und von Tönen viel schöner wurde. Der Effekt 
des wachsenden Balkens entstand rein zufällig. 
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SIMON erinnert an manche Kombinationsspiele, die über eine Million Mög- 
lichkeiten besitzen. Das Programm verwendet möglichst wenig maschinen- 
sprachliche Aufrufe und ESC-Folgen in PRINT-Befehlen, denn sie beein- 
trächtigen die Lesbarkeit des Programms. Eine bessere Lösung ist das Er- 
weitern von Computersprachen durch zusätzliche Kommandos (z.B. HOME 
anstatt CALL-936). Deshalb ziehen wir es vor, mit PRINT einige Leerzeichen 
auszudrucken, anstatt eine maschinensprachliche Prozedur aufzurufen, um 
das Ende einer Zeile zu löschen. 


Anhang C 
Hinweise zu den Programmlistings 


Die folgenden Hinweise sind für Leser gedacht, die alle Programme dieses 
Buches per Hand eintippen wollen. Vielleicht helfen sie etwas beim Lesen 
und Eingeben der Listings. 


1. 


Die Unterprogramm-Einheiten sollten ohne die anderen Programmteile 
sofort auf Diskette gespeichert werden. Auf diese Art können die Unter- 
programme jederzeit mit eigenen Programmen verbunden werden, und das 
Unterprogramm muß nur einmal eingetippt werden. 


. Damit unsere Unterprogramme sich nicht mit den Programmen des Lesers 


überschneiden, haben wir hohe Zeilennummern benutzt. Eigene Listings 
sollten deshalb nicht über die Zeile 10000 hinausgehen, können aber ab 
Zeile 50000 fortgesetzt werden. 


. Varıablennamen, die mit W, X, Y und Z beginnen, sind möglichst zu ver- 


meiden. Sie werden bereits ın unseren Unterprogrammen benutzt. 


. Die folgenden Hinweise sollen dazu dienen, eventuelle Unklarheiten beim 


Lesen der Listings zu beseitigen: 

— Der Buchstabe I wird nicht als Varıablenname benutzt. Auch als Teil 
eines Variablennamens, wie z.B. in Al oder ZI, haben wir ıhn nicht ver- 
wendet. Der Buchstabe I kann sehr leicht mit der Zahl 1 verwechselt 
werden. 

— Um Verwechslungen mit der Zahl ® zu vermeiden, wird auch der Buch- 
stabe O nie als Variablenname oder als Teil davon benutzt. Die Variable 
AO gibt es also nicht. 

— In unseren Listings gibt es Variablennamen wie Al, BO oder C9. 


‚Die Zeilennummern sowie leere Zeilen und REM-Zeilen trennen die ein- 


zelnen Programmteile und Erläuterungen voneinander ab. 


. Wenn der zulässige Speicherbereich überschritten wird, können die REM- 


Anweisungen gelöscht werden. Für spätere Änderungen oder Fragen ist es 
jedoch besser, die REM’s stehen zu lassen. Löschen Sie zuerst die ein- 


121 


führenden REM-Befehle und später die REM-Anweisungen, die zusam- 
men mit anderen Befehlen in einer Zeile stehen. Diese REM’s erläutern 
direkt die Auswirkung des dazugehörigen BASIC-Befehls. Die einführen- 
den REM’s beschreiben den Zugang zu den Unterprogrammen oder wie 
Programmänderungen durchzuführen sind. 

7. Weiterhin können bei Überschreiten des zulässigen Speicherbereiches nicht 
benutzte Teile von EINGABE EINHEIT und BILD EINHEIT gelöscht 
werden. Zum Beispiel benutzt das Spiel STERNE nur die Buchstaben S, T, 
E, R und N. Alle anderen Bilder in BILD EINHEIT können gelöscht 
werden. 
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Anhang D 
Das Entwickeln von Programmen 





Das Schlagwort „benutzerfreundliche Software‘ wird heutzutage oft ge- 
braucht. In dem Maße, in dem die Zahl der käuflich erwerblichen Computer- 
programme zunimmt, wählen die Kunden kritischer aus dem bestehenden 
Angebot aus. Sie suchen nicht nur nach funktionsfähigen Programmen, son- 
dern wollen auch leicht anwendbare Programme erwerben. Sie sind nicht zu- 
frieden mit Programmen, bei denen der Text aus dem Bildschirmbereich ver- 
schwindet, erforderliche Antworten umständlich einzugeben oder Fragestel- 
lungen unklar sind. 


Im Verlaufe dieses Buches haben wir viele Vorschläge gemacht und Verein- 
barungen getroffen, die benutzerfreundlich sind. Die Eingabe-Prozeduren mit 
Fehlerbehandlungsschleifen und hilfreichen Fehlermeldungen sind Beispiele 
benutzerfreundlicher Programmierung. Die ESC-Vereinbarung zum Verlassen 
eines Programmes ist ein weiteres Beispiel. 

Dieser Anhang faßt noch einmal alle bisher geäußerten Vorschläge zusammen 
und fügt weitere hinzu. Mit der folgenden Prüfliste kann der Leser sowohl 
seine eigenen, als auch kommerzielle Programme auf ihre Benutzerfreund- 
lichkeit überprüfen. 


Wünschenswerte Merkmale in Lehr- und Lernprogrammen 


— Einführung und Information sind auf gleicher Ebene wie die Durchführung 
des Programms 

— Verzweigungen, um Informationen übergehen zu können 

— Verzweigungen für Anfänger bzw. Fortgeschrittene 

— Schwierigkeit der Aufgabe ist den erforderlichen Lesefähigkeiten ange- 

alt. 

— Informationen zum Beenden oder Unterbrechen werden deutlich darge- 
stellt. 

— Geordnete, übersichtliche Bildgestaltung 

— Deutliche Angaben der einzelnen Größen 

— Konsistente Eingabeform (entweder INPUT oder GET) 

— Zahl der erlaubten Versuche durch Benutzer regelbar 
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— Dauer der Informationsdarstellung durch Benutzer regelbar 

— Schwierigkeitsgrad durch Benutzer regelbar 

— Reaktionen auf eine richtige Antwort sind stärker als auf eine falsche Ant- 
wort 

— Hilfreiche und keine negativen Reaktionen 

— Leicht zugängliche Hilfsinformationen 

— Fehlerbehandlungsschleifen und hilfreiche Hinweise 

— Häufiges Löschen des Bildschirms 

— Konsistenter Gebrauch von Informations- und Programmabbruch-Verein- 
barungen 


Folgendes ist zu vermeiden: 


— Abbrechen von Wörtern am Ende der Zeile 

— Lesen und Ausdrucken am unteren Ende des Bildschirms 

— Ständig wechselndes Bild 

— Unpassendes Setzen von Leerzeichen 

— Text, der aus dem Bildschirmbereich verschwindet 

— Zu viele blinkende Textzeilen 

— Zu ausgiebiger Gebrauch von Klangeffekten, speziell sich wiederholender 
Melodien 


Auch folgende Fragestellungen sınd zu beachten: 


— Eignet sich das Problem für den Einsatz eines Computers oder läßt es sich 
auf andere Art besser lösen? 

— Ist das zur Durchführung eines Spiels erforderliche Denken mit einer För- 
derung der Lernerfahrung verbunden? 

— Ist die Benutzung des Programms einfach genug? Es ist nicht der Zweck 
eines Spiels, daß der Benutzer mühsam lernt, wie das Spiel durchgeführt 
wird. 
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